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DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II et lie 
. CANON X-07 . CASIO FX 702-P . COMMODORE 64 et VIC 20 . 
GOUPIL . HEWLETT PACKARD HP41 . MULTITECH MP-FII . 
ORIC 1 . SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 . TANDY 
TRS 80 . TEXAS Ti-99/4A . THOMSON T07 



LES CONCOURS PERMANENTS : . PATOIS BASIC 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 

Moto de saut 



PARIS-DAKAR comme si vous y etiez, sur votre moto PC 121 1. 
surnommee JOLLY JUMPER, la seule a sauter par-dessus les 
obstacles. Attention, tout le monde ne sera pas £ I'arrivee. 

Marc FENOUILLAT 



DEF B puis ENTER puis choisir le niveau (0 a 3) 1 pouraccele- 
rer. 2 pour freiner, 3 pour sauter. 



I:DAIA ' 
7: MIA " 
J: DAI* "' 



7: DMA ' - 
B:DATA " 
9:BATA " 
10: DATA ' 
1 J ; DATA ' 
17: DATA ' 
13:MIA ' 
U:0ATA ' 
li:MTA ' 
14:BATA ' 
1 7: MIA ' 
IB: OAT A ' 



9:M!A ' 



Ct="./"'Z»*"6"(A»15:W:»A[T:PRlPlT "WHO DE SAU1 "'Ci 
B3rI)TUT -'OUEL MVESU (0/1/21;' 'IK: IF I<0 OS l>7 60TD 97 
8IiT"I« 

a*:i=(«iD mr 

H(PEST0« *:KK 71 101 

!00:FOfi I-70 TO STEP -I: IATT A:PS1II1 LEFTH»(01,I)*C« 

iP!GHTHItfO),70-II:BI=!W:m:GH VAL 91 SOTO UO, 170,123 
I07:!F !>l IF NIDI IIU0!,l,<H>" " SOTO IM 
]05:Krr I:P=P«5:5=S»l:!f S'5 LET TM«7:CAU 170M:BEEP I 

WIT 120: PfllBT "EIAPE SUIVflNTE" :S=0: IF T>H LET I'M 
1 86(6010 84 
tl*]*»15l GOTO 171 
I70:*»33 

I7i:I= VAL Bt: 60T0 107 
I33:DH I GOTO 176,177 
IUiI-I-TiMII TOiGGIO 130 
i;7:I=l-S:»AIT 50 
IMPRINT HW: 6GT0 107 
IM:«AIT 170:PflJMt lEFTf IZI(0),1 

D=D*J:IF 0<>4 HUNT 
!55:PRINT '• SC0SE:":P(E*D 



? c 



A aAA 



•»•" 



L'adaptationd'un programmed'un 
ordinateur X sur un ordinateur Y 
n'est pas toujours chose aisee. 
A priori, presque lous les ordina- 
teurs individuels sont program- 
mables en basic, langage standar- 
dise. 

En realite.et le basic parlui-meme 
n'esl pas en cause, chaque ordina- 
teur possede son basic "elendu" 
qui reste tres different des aulres 
Hebdogiciel vous aide a reahser 
I'adaptation des programmes qui 
vous interessent en publiant, cha- 
que semaine et pour chaque ordi- 
nateur, un resume des parlicula ri- 
tes du basic concerne. 

Pour les mordus du langage 
machine, aucune solution de ce 
type n'est envisageable, et pour 
cause. 

Bien entendu. remarquesetajouls 
seront les bienvenus afin de com- 
pleter petit a petit ce panorama 
des patois basic. 

Cette semaine : ORIC 1. 



Suite page 15 



EDITO 



J'ai recemment lermine une etude 
sur les logiciels educatifa [en col- 
laboration avec la FNAC) et je me 



suisapercuavec horreurdu peude 
logiciels disponibles dans ce 
domaine. Si les cassettes, dis- 
quettes et modules de jeux se cfiif- 
Irenl par milliers. on Irouve a peine 
une centaine de logiciels pedago- 
giques Et encore il faut voir le 
niveau 'Si certains edileurs comme 
VIFI-NATHAN. HATIER. 
MAGNARD ou encore EDICIELS 
proposen! des produits de qualite. 
d'autres n'hesileni pas a bapliser 
de pedagogiques de vagues pro- 
grammes de questions/reponses 
qui ne sont meme pas des QUIZ 
bien fichus J'espere que les pro- 
grammes sur lesquels travatlleni et 
travailleronl nos enfants a I'ecole 
vont se developper non seulement 
en quanlite mais aussi en qualite ' 

En attendant, vous pouvez laire 
quelque chose : envoyez-nous des 
programmes que nous publierons 
dans I'hebdo. pas de super-pro- 
grammes, mais' de ■■ bons petits 
programmes -que vous avez testes 
avec vos enfants, qui les amusent 
tout en leur apprenanl quelque 
chose, sans pretentions ! 

Si ATARI. APPLE. TEXAS el 

THOMSON sont relativement bien 
pourvus dans cerlains domames. 
c'esl le desert ou presque pour tous 
les aulres. Alors, au boulot. nous 
comptons sur vous ' 



Nous avons commence I'hebdo en 
oclobre et nous atlendions le nou- 
vel 600 XL pour faire enlrer ATARI 
dans nos colonnes II est a present 
annonce el vous pouvez envoyer 
vos programmes 400 el 800 compa- 
tibles, nous les passerons a partir 
de fevrier 



Gerard CECCALDI 



MENU 



Solitaire 

page6 

CASIO FX 702-P Belote 

Alain FAUVET , pageI5 

COMMODORE 64 Bombardement 
Serge PIT pages 

COMMODORE VIC 20 Sauvetage 
Bruno 1NTERNICOLA pages 

GOUPIL Ediieur do text* 

Thierry GOUILLOU page 7 

HP 41 PWR 

Gilles OSMONT page 11 

ORIC 1 Les dames anglaises 

Alain LALISSE pageiO 

PC 1211 Moto de saut 

Marc FENOUILLAT page 1 

PC 1500 Representation 

G.HELFER de donnees 

page 14 
Bowling 
page 9 
Piemontais 
page 15 

ZX 81 Kingdom 

Pierre-Francois LECOINTRE 

page 13 
TRS 80 Eckisc 

Emile CLERC page 4 

Tl 99 4/A (b.e.) Romeo et Juliette 
Gilbert MAGGIO 



MPF II 

Stephan BELLEGY 



Paul GARDAN 
CANON X-07 
Cyrille DANES 



page 2 
Tissage 
page 3 
Creat 
page 11 

Met cores 
page 12 



HIPPOREBUS trouvez lexpression qui se cache dans la B D de I'hippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'lnlormaliquc 
(solution en page interieure) 




CE CHARLDT RjTUKJ J£ SAGE . 





CAOQ.E. -S16M PANS OKI CtERTAlM 
Moo£ OE? TRANSMISSION! • « • 
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Allemagno 3,50 DM ■ Bolglque 55 Frs - Canada 2.50 $ - Luxembourg 57 Frs - Suisse 3 Irs - 



ROMEO ET JULIETTE 



Romeo et Juliette.- version 83 ! 

Romeo parachutiste devra sauter d'un helicoptere pour 

rejoindre Juliette. 

II devra toutefois eviter divers obstacles (canon laser, 

arbre carnivore, voiture piegee. etc.). 

Le jeu commence par un bel apres-midi ensoleille. mais 

peu a peu la nuit tombe et le soleil fait place a la lune. 

L'obscurite totale determinera la fin d'une partie. 

Selon la couleurduciel. certains sujetsseront invisibles... 

Record a battre: 9 280. 

Gilbert MAGGIO 




.'EXTENSION MEMOIRS 32F et d'ur 
CE5 L1GNES NE CONCERNENT 



240 ■ ATTENTION 5 i vous ne dispose; p« de 

DI50UETTE suppri mer Ins lignps: 
2SO ' 10O A 300 ET 1630 A 1990 

LA PRESENTATION. 

260 'ENFIN RAJOUTEZ UN CALL SCREEN(5> AU TOUT DEBUT DE VOTRIF PROGRAMME 
270 DATA 392. 2,415,2, 392, 2.S2S, 9, 392.3, 349, 2. 392, 2, 349, 2,523. 6, 349.6, 392.9, 149, 3 
.349,2,311.2.294,2 

290 DATA 311, 1 8,392, 2, 4 15, 2, 392. 2, 622. 9, 392, 3, 349, 2, 392, 2, 349, 2, 597, 9, 523, 3. 46b, 
9. 413, 3,41b, ?, 392,2 
290 DATA 349,2,392.18 

300 CALL T1TRE :: CALL MUS10UE :: CALL CLEAR :: CALL CHARSET 
310 MSC--1000O :: FDR 1-1 TO 12 :: CALL COLOR (I . 16, 1 ): : NEXT 1 

320 DISPLAY AT(12.4>£PASE ALL BEEP: "REGLE DU JEU _ '<0/N) O" :: ACCEPT ATI12.241SI 
2£ <-I ) VALIDATE! "ON") :R* 
530 IF R»="0" THEN CALL R£GLE(FO> 
340 CALL HCHAR(24,20,32,10) 

350 DISPLAY 0T<9, 1)BEEP:"3 NWEflUX DE DIFICULTES": : :"1 UEBUTCNT . ": :"2 KAHIKAZ 
E.~: : "3 MISSION IMPOSSIBLE." 

360 DISPLAY 0T(2O, U:"VOTR£ CHOIX SVP (1.2 OU 3) I " :: ACCEPT AT (20, 20) VALIDATE t 
-I23">SIZE(~1)6£EP-.CH 

370 CALL SCREENlfi):: CALL CDL0R<5,2, 1 ) : : CF— 3 :: CV=14 :: Cl=2 :: Fl-7 :: C2.F2- 
1 :: SC-IOOO 

380 X=l :: Y-99 :; CALL CLEAR 
390 CALL MAGNIFY (4) 

400 CALL CHAR'4B,"B241320EE11219278B134A9205122I4820102041224C29D0C4FC53A0SCI251 
CB"I 

410 CALL CHAR(52,RPT»<"0",17)1 
420 CALL CHAR(60."81B1FF9191"I 
430 CALL CHAR(76, "FF~S,RPT«("0",62)> 

440 CALL CHAR(B4,RPT»{"0~, 17)&-101O0O1010206"*vRPT» 
RPT4("0",17IV101000101O10OOl"6RPT»C 

450 CALL CHAR'140,RPT»("O", 16) •,'* lF2222FFFFFFFF!B"e-RPT» ( ' 
-) 'VOITURE 

460 CALL CHAR(36,"ia3C7EFEFFFF7F3FlFIFIF3F7FF9F06000000OO000C0FCFEFCF9FFFFFEFCFB 
39" » INUAGE 1 

470 CALL CHAR(44, "O3O70F 1F7FFFFFFFFF3F3F3F 1FO30 1 OOBOCOEOFEFFFFFFFEFBEOFBFCFCFBFO 
FO-I 'NUOGE 2 

490 CALL CHARU 12, "E07B7F3F3F7FFFFF6F3F5FBF7F 1FOF0FC4EEFFFEFCFEFFFFFEFCFFFFEEC0C 
■) 'NL'AGE Z 

490 CALL CHAR<116, "B04020100B0507FEOF05060B1 1 21 41B1B132B4B8DOAOE070FF0060D008040 
201") 'SOLEIL 

5O0 CALL CHARU20. "OOFF 1 01O3854FEFFFF7F3FO84B3F0000000O00000003FEF9E0E0000O00Q00 
0") 'HELICO 

510 CALL CHAR (124. M (jO3BlOlO39b4FEKFFF7F3F'.'B4EJ^F0000O0.1. 100000001 FEFSEOEOOOOOOOOOO 
0-1 'HELICO 

520 CALL CHAR(128,"000000000000000001010F030302020200000000000000008090FOCOC0404 
040") 'PARA 1 

530 CALL CHAR ( 1 32. "07 1F3F3F 1 O 10080B05050F0303020202EOF8FCFC0908 1 O 1 0A6A0F0C0C0404 
O40") 'PARA 2 

540 CALL CHARM36, -7C3E3C7B7CFEFFFF", 137, "3B7C7CFE3E7E7F3C" , 139, "7C383C3C3B7B7B7 
TRONC 

: C»»RPT»("01",8> :: D 



"O", 161! 



'■FEFEFFFF7E7E31 
550 CALL CLEAR :: A*-' 
«-RPT»l"SO",B) 
560 CALL CHAR<96,"01O205OA 
99.-S5AA55AA53AA550A") -TOI 
570 CALL CHAR(lO0,-01O2050l 
580 CALL CHARU04, "FF8080908080B0B", 103 

. lOB.Ct) 'FORTE 
390 CALL CHAR140, 'FFaiBlOlB 
600 CALL CQLOR(4, 16,9,2,2. 1 
610 CALL VCHAR(1B,3,56.5):: 
J DATA 14,6,96,1.14,7.97, 



FFFEFDFAF5EAD5AA" :: B*=RPT» ( "F" , 16) : 
AS5AA" , 97, "B040A050A954AA55" , 9 



6,5.99,' 

630 DATA 16,9,97,1.17,3.100 

2,21,4,96,4 

640 DATA 22,4.56.4.19.4,40,: 

. 1,22,8. 106. 1 

650 DATA 22,9, lOB, 1,0,0,0,0 

660 FOR 1=1 TO 25 : : READ L 

670 CALL HCHARI22.14, 136):: 

HCHARI19. 14. 139) ' TRONC 
680 CALL SPRITE (#1,44. 16. 1, 



690 CALL SPRITE("28, 1 16. 12, 



700 CALL SRRi- 



720 CALL HCHAR<22, I 



5AA3SRAS5AA5 
TO IT 



IAFF " 



81B1FF", 56,84.57, 
'.9, 1, 10.C1.F1. 14, 7. 1, 
CALL VCHARI19, 10,56,3 
15.4,56. 1, 15.5,96, 1, 



01010101", 106. D 
FENETPF ET CHEMINEE 

99,2,15,8,97, 1, 



1,17, 



■,98,6. 17,10. 101,1, IB 

40.2.20,8, 104, 1,20,9 



00, O, 2, 42, 112. 16, 12, 100.0,3.(13,36. 16,32,50,0,1) 'LES 
, Y, 46, 36, 3, 113,94,117.44,3, 113.871 :: CALL HCHAR (23, I. 



»--OQOOOOO0OlO7OfaOFOFOEO7O3OOOOOOO0OO0OOOOOCOE02O00OO0OA0C" 



730 L 

72.LUN*) 

740 CALL VCHAR<22, 26,56.31:: CALL VCHAR !22, 32. 36, 3) : : CALL HCHAR (24 , 26,56, 7) 

730 CALL CHAft(8O. r '0O0O009C639C639C",91,"639C639C639C639C">:: CALL C0L0R17, 6, 1 > : 

CALL HCHAR(22.27,B0,5> :: CALL HCHAR (23, 27, Bl , 5) 
760 CALL SPRITE(44. 60,2.90,20. "5. 120,5. I , 256.0, -40*CH) 
770 CALL JEU'CP.CV,C1.F1,C2,F2,SC) 
7BO FOR X=l TO 99 :: Y=Y-3 
790 IF Y<=0 THEN 810 

BOO 'All L0CATE<428, X, Y):: CALL JEU (CP.CV. C! .F 1 . C2, F2,SC> 1 1 NEXT X 
BIO CALL DELSPRITE'428) :: CALL SCREEN1I5):: FOR 1-1 TO 13 II CALL JEU(CP,CV.C I , 
l.C2,F2,SC):: NEXT I 

B20 Cl-1 :: FJ.CP-2 :: CALL COLOR (It 1 , 13, #2, 15. 43, 13, 46. 2, 47, 2) 

B30 CALL SPRITE("28.72, 12. !,50> : : CALL COLOR (4. 2. 2, 3, 2. 2. 9. 2. 1 , 10. CI , F 1 , 14,2, I , 
,2,2):: CALL SCREEN! 14) 
B40 CALL CDLOR(4i2,CP.416,CP> 

950 FOR 1-1 TO 15 :: CALL JEU (CP.CV.C1 .Fl , C2, F2.SC) : : NEXT ] 
0RO22.CV) 

06O CALL SCREEN'6):: CALL COLOR ("5. 5) : : COLL COLOR! Hi, CI .Fl 1 
CALL JELMCP.CV,C1.F1,C2,F2,SC) :i NEXT I 
970 CALL SCREEN!5):: CALL COLOR ("3, 5, " 1 , 3, 42, 3, 43, 51 
BBO FDR 1-1 TO 3 :: CALL JEU (CP, CV.C1 ,F1 , C2, F2.SC) 1 ! NEXT I 
CALL CD1.0R!2.2, II, 10.C1.F1I: : C2.F2-U 

B90 FDR 1-1 TO 50 :: CALL JEU'CP.CV.Cl , F 1 , C2, F2.5C1 : : NEXT I 
900 CALL SCREEN (2) i: CALL CLEAR :t CALL DELSPRI TE (ALL) : : CALL CHARSET :: I 

TO 10 II CALL COLOR II, 1 I. 1):: NEXT I 
9IO IF MSC^SC THEN MSC=SC 

920 DISPLAY AT ( 13. 10) : "SCORE - "ISC: :"NEILLEUR SCORE - " : HSC 
930 DISPLAY AT (24,. It i "UNE AUTRE PARTIE? (0/N) O" :i ACCEPT AT (24, 27) 5I2E (■ 



: CV-2 : 
FOR I»: 

Cl-1 1 : 



O 



£ 



80eOBOBO9O9O4O2" , B9, 
'804040FEFFFFFF18 



o 



o 
o 



Q 



V 



o 
O 



"0I01010I0 



.145, 130) IVDITURE 

710 CALL CHAR(68.-010703O1070F0B090I0307OF0F02O202BOE0C0B0EOF0D09090COE0F0F04040 
: CALL HCHAR<21.11.68) 

[(21,12,70)11 CALL HCHAR(22, 12,71 ) 'JULIETTE 



CALL CLEAR i 



.LI. ST! 



TO 2 : 



NEXT 



I THEN ( 



CALL M0TI0N<»I2.5,< 



f/i» call PATTERN(43,124>ii FOR I-: 

970 SUKEND 

900 SUB JEUICP,CV.C1,FI,C2,F2,SCI II CALL R 

WO CALL P0SIII0N(»12.YP,XP,43.YH.XHI : : IF 

1000 IF K-32 THEN CALL SPRI TE (412, 128, CP, Y 

1010 CALL ROT II CALL POSI T ION (4 I 2, VP, XP) 

1020 IF- YP -60 THEN CALL PATTERN(»12, 132>i 

n .Ci-.CV.C1.FI,C2,F2.SC) 

103O SUBEND 

1040 SUB DESCfYP, XP, CP.CV, CI. Fl ,C2,F?,SC)n CALL ROT 

1050 IF XPX AND Xp<69 THEN CALL MAIS(SCl!l SUBEXIT 

!"(," IF XP,7o AND XP'116 THEN CALL ARBR(SC):: GUBEXII 

107O IF XF->I31 AND XP-^170 THEN CALL VOIT (CV, SO i : SUE1EX 

1O80 IF XP/183 AND XP^236 THEN CALL PI5C(SC):i SUBEXIT 

1090 CALL S0L(CP,C1,FI.C2,F2,8C) 

I 100 SIJBEND 

1110 UB mi,I',im:i ■ , F-400O it V 

I i.'" r:''i I ■-,"■! rr<»i7. /6.9.90.4O 

127) 

1130 CALL LOCATE (417. 90, 40,418, 

1140 F-F.200 |l CALL 9OUND(20,F 

1130 CALL DCLSRRITG(4I2, 417,418 



RE :. GOTO 3: 
iTTERN(45, 120 



. „JSC(YP, 



CALL DESC(YP, 



',•19,76, : 



T\ 



99/4^ 



CALL SOUND(3O0,- 



OR VOI-1 TO 3 :: CALL ROT :: CALL MOTIDN (*20. 1 . 1 . "21 . -1 . -1 1 
CALL S0UND(40O,-4-VOI,O) 

300 CALL MOTION!420 1 -1,-1 1 «21, 1. 1) :: CALL ROT 

H 

310 CALL DELSPRITE(422,420,421) :: SC=SC-300 

320 CALL SPRITE(»22, I40.CV, 145, 1.0, 10) 

330 CALL ROT :: CALL POSI T ION ( »22, VV. XV) : : IF 

•22.0,0) 

340 SUBEND 

350 SUB PISC(SC) 

360 CALL ROT :: CALL POSITION (• 12, YP. XP) 

370 IF XPC216 THEN CALL MOTI0N(«I2, 5, 1 ) 

380 IF XP>230 THEN CALL MOT I0N(B12. 5, -2) 

390 IF YP>-145 THEN 1410 

400 IF YPM THEN 1360 ELSE SUOEXIT 

4IO CALL SPRITE(*23,52,6.YP.XP,-1,0,»24,52. 16.YP.XP): : CAL 

L S0UND(BO0,-7,2O) 

420 FOR I-l TO 10 :: CALL ROT :: NEXT I I: FOR I-! TO 10 : 

:i CALL ROT :: NEXT I 

430 CALL DELSPRITE(*23,»24) :: SC-SC-50 

440 SUBEND 

450 SUB S0L(CP,C1,F1,C2,F2,SC) 

460 CALL P0SITIDN(«12,VP,XPI :: IF XP<=70 THEN SC-SC*3000 : 

470 IF XPM70 THEN SC = SC*50 ELSE SC=SC-600 

480 CALL P0SITI0N(»12,YP,XP):: CALL C0INC(4I2, 146, XP. 1 ,CI 1 
ATTERN(«12, 128): : CALL MOTION(* 12,0,0) 

490 CALL ROT :: IF YP>1 AND YF-:i46 THEN 14B0 

SOO'CALL 0ELSPRITEI412):: CALL SPRI TE(4 16,-84, CP, I 4e>, xr ,&, - -*t 

510 COLL ROT :: COLL PATTERN (416,88) : : CALL POSI T ION (416. YP, XP) 

520 IF XPT-50 THEN CALL MOTION (416, O, 01 : : CALL ROT ELSE CALL PATTERN(416. 84) : : 
GOTO 1510 

PATTERNIB16.128):: CALL COLOR ( 10. C2, F2) : : CALL ROT :: CALL DELSPRITE(» 




16'.' SUPEfJD 

170 SUB APBP(SC):! CALL ROT 

ISO CALL P0SITI0N(il2.YF.XPI ; 

190 CALL C0INC("I2,"6. I9.C>: i 

T'.'j CALL POSITIDN(»12 > VP > XP)i 

RITE(»I2) : : CALL ROT 

210 CALL P0SITiaN1412.YP,XP):: IF YPOO THEN 1180 

220 FOR 1-1 TO IS :: CALL MOT ION ("6, O. -2, "7, 0, 2) : I CALL SOUND(20, -3, O) ; : CALL R 

T :: CALL MOT ION («6, O. 2, «7, O. -2) : : CALL SOUND < 20, -6, 3> : : CALL ROT :: NEXT I 

230 CALL M0TI0N(»6,0,0,»7.0,0): : CALL LOCATE («6. 1 13, 94. B7. 1 1 3, 87) : : SC-SC-lOO 

240 SUBEND 

250 SUB VOIT(CV.SC) 

260 CALL ROT :: CALL POSI T ION (412, YP. XPt : 

270 IF YPM THEN 1260 

280 CALL SPRITE(»20,4B, 12, 135. 143. "21.48, 10, 145, 150) : : CALL DELSPRITEd 



IF XPM06 THEN CALL M0TI0N(«I2.3.-D 
IF C--1 THEN CALL DELSFRI TE (•! 2) : : CALL ROT 
CALL C0INC(»I2.47, 1B.C) :: IF C--1 THEN CALL DELS 



: THEN I 



CALL I 



■:iSO THEN 1330 ELSE CALL MOTION 



. DELSPRITE(4i: 
CALL MOT I ON (I 



GOTO 14 BO 

IF C=-l THEN CALL I 



COLL SPR1TE(418,B4,2, 146, 



540 CALL HCHARI22, 11.32,2) : : COLL HCHARI21 , 1 1 . 32, 2) : 
BO, 0,-4) 

550 CALL ROT :: CALL PATTERN (• IB, 81 

560 IF XP<=50 THEN CALL H0TI0N("1B 
GOTO 1550 

570 CALL DELSPRITE(41B) :: FOR 1-1 TO 3 :: CALL ROT :: NEXT I :: CALL COLORUO.C 

580 CALL CHAR(76.~lClE3£3F7F7FFFFFFF7F3FlF0F07O30138787CFEFEFFFFFFFFFEFCFBFOE0C 
OB"):: CALL SPRITE (421 , 76,9, BO, 12, -2, I ) 
590 FOR 1=1 TO 100 :: CALL ROT :: NEXT I :: CALL DELSPRI TE (421 ) 1 1 CALL CHAR176. 
FF"!.RPT»("0",62)) 

6O0 CALL ROT :: CALL HCHAR (22, 1 1 ,69) : : CALL HCHAR (21 . 12. 70) : : CALL HCHAR < IT. 1 2. 
JULIETTE 
i CALL HCHARI21. 11.681 



■.:■" 



ITRE 



INDEX' 



ESPACE*= 
.ALPHA (9 1 : 

NEXT I 
: A»=SEG4(ESPACE*. I ,L)fcA»!.SEG*<ESPACE», I, LI) 
: B»>SEG*(ESPACE», 1 , L)'-B*kSEG» (ESPOCE*. I.LI) 

C«=SEG»(ESPACE». 1 . L I '.C»*.SEG« (ESPACE*. 1.L1) 

ECRAN-5 

COLL SCREEN1ECR0N) : : FOR 1=1 TO 14 :: CALL COLOR ( I . COULEUR. I 



INDEX^l :: FDR 1-1 TO 3 : 

EIJLMORTU", 



FOR J=l ■ 
1):: CARC 



I : : IF 5EG4CT*. INDEX 
-ALPHO(POSITION) 



640 COLL CLEOR : 

650 DIM CAR(3,B). 

: INDEX-INDEX*! i 

660 L=8-LEN(0«): i 

670 L=B-LEN(B»):: 

690 L»9-LEN(C») :: 

690 C0ULEURM6 : i 

700 CALL CLEAR : i 

i NEXT 1 

710 T*»A«!.e»f.C» I 

)="" THEN 1730 

720 P0SITiaN=P05!"EIJLM0RTU".SE4<T*. INI 

730 INDEX-INDEX*-! :: NEXT J :: NEXT I 

740 CALL CHAR(36,-7F7F7F7F7B7B7F7F7F7F7B787F7F7F7FFCFCFCFC'.":n!'-'E0EOF.iF'"".rOnFri-CF 
CFC") 

750 CALL CHAR(40."lF!FlFlF03030303O3O303O3IFlFIFlFF8F9FBFBC0C0C0C0C0C0C0C0FBF9F 

FB") 

760 CALL CHAR(44,"07O7O707O0000OOO0O7B7B7D7F7F3FlFFEFEFEFEFOOFOFOFOFOFCFOF0FOE 
OC") 

770 CALL CHAR(4B. ■ , 7B7B7a7B7a7a7B7B7a78787B7F7F7F7F000O0OOOOOOOOOOOO0OOOOOOFBFaF 

!FB") 

780 CALL CHAR<52."FOFBFCFEFFFFF7F3F1FOFOFOFOFOFOFOOF1F3F7FFFFFFCFBFOFOFOFOFOFO 

OF") 

790 CALL CHAR<56,"lF3F7F7F7C787B7a7a787B7C7F7F3FlFFBFCFEFE3EIElEIElElElE;EFEFEF 

F8 ") 

800 CALL CHAR(60,"7F7F7F7F7a787F7F7F7F7B787B7B7a7aFOFCFEFEiEIEFEFEFCF87a7B3C3Cl 

IE") 

910 CALL CH0R(64, "7F7F7F7FO3O3O3O303O3O3O3O3O3O3O3FEFEFEFEC0COCOC0COCOCOCOCOCOC 

CO") 

920 COLL CHAR(6B,"787a787B7a78787B7a7a787C7F7F3F0FlElElE]ElElElElElElElE3EFEFEF 
:F") 

830 CALL CLEAR :: FOR 1=1 TO 3 I : FOR J-l TO 8 : 



TO 3 I 

COLONNE' 
1900 

930 CALL HCHOR (LIGNE, COLONNE. COR< I, J) ):: 
: CALL HCH0R!LIGNE,CDL0NNE*1,CAR(I,J)*2) 
860 COLL HCH0RIL1GNEH, COLONNE*!, COR ( I , J) 
B70 NEXT J :: NEXT I 
990 3UBEXIT 

890 L1GNE=LIGNE*4 :i GOTO 1850 
900 LIGNE«LIGNE*8 i: COLONNE-COLONNE*! 2 : 
910 SUBEND 
920 SUB MUSI DUE 

930 DIM Fl (32),F2(32),F3(32),D(32> 
940 FOR 1 = 1 TO 32 :: READ FKD.T u F2(I 
950 D(I)-100"T i: GOTO 1970 
960 D(1)-70»T 
970 NEXT I 
990 FOR 1 = 1 TO 32 :: V-2- ( I >1 1 1 ) • ( I - 1 1 1 ) : 



CALL HCHOR(LIGNE*I. COLONNE. CARC 



GOTO I B50 



I 



) SUCEND 
2000 SUB REGLE(FO) 
2010 CALL STITRE 
2020 DISPLAY AT(8,7)i"R( 
copter* mais ATTENTION" 
2030 DISPLAY AT<14,1):"1 
t": : "carnivore, la voil 



2040 DISPLAY AT 


20, I ) 1 "plege* et. 


. Rome 


2030 CALL ENTER 






2060 DISPLAY Al 








oppuyant »ur " 




2070 DISPLAY AT 


15,7) LA BARRE 


ESPACE 




a null noirif." 




2OB0 COLL ENTER 






209O DISPLAY AT 


10. l):"P»nd»nt Is 


ino to 








2100 COLL ENTER 






2110 DISPLAY AT 


0, !2) : MALUS 


: : "S 


Inta" 






2120 UISPLAY AT 


15, 1 ) :"L'*rbrit 


-I O.I p 




nta" 




2130 CALL ENTER 






2140 DISPLAY AT 


G, 12) BONUS 










2150 DISPLAY AT 


13,1): "1 'jrbre -t 
6O0" 


1* vol 


2160 CALL ENTER 






■■I 70 Sllf'l ND 






2! BO SUD ENIER 







CALL SOUND(nil) 



"**utipr Romeo ei 



2190 C 



. KEV 



K.SI I 



1 IHFN 1 I 30 ELSE 5C-SC-10 



2200 SUBEND 

, r .'l'i 'IMP' '.I I IM 

2220 A4-RPT4<-"",2!) I I DISPLAY AT < 1 , 41EHA9F. ALLtAi 

T JULIETTE •" II DISLAV AT(3,4)iA* 

2230 CALL VCHAR(2,6, 42, 3) i i CALL VCHAR (2, 26, 42, 3) 

2240 DISPLAY AT 124. 20) BEEPl"""ENrER- "" 

2250 SUBEND 



13 THEN 2190 ELSE CALL HCHAR (fl. I . 32.312) 

I DISPLAY AT (3,4) I "• RUMEO li 



TISSAGE 



Si vous ne savez pas tisser, ce programme, qui simule la 
creation de tissus (dessins et couleurs) en respeclant 
toutes tes lois du tissage sur un metier a quatre cadres, 
fera de vous un <■ pro ». 

Si vous savez tisser, il vous oftre un echantillonnage 
rapide, peu couteux et illimite avant toute realisation. 
II ne vous reste plus qu'a concevoir I'interface 
mecanique... 

Association Le PAQUIS CHATEL 



1 REM »-ASS. LE PAOUIS CHATEL*. 

2 REM • ■■TISSAGE." 

3 REn •••Tl 99/4A." 
10 REM INITIALISATION 
20 GOTO ISO 

30 OPTION BASE 1 

40 SA» 

30 L-BB-N-CS 

60 DIM RED<4, 16) 

70 CA-RZ-ARZ-T-P-CC 

SO DIM TCI 30) 

90 ETA=KE-A=D-TCC=W 

10O DIM TCTI24) .TCBI2, 15) 

120 DIM TP<24.4> 
130 X-C 

140 dim te<;o> 

iso rem •.presentation-. 

160 call clear 

170 call screeni6) 

1b0 print " programme tissage":: 

::- le paouis":::::: 

190 print '■production club infopmat ioue" : 

:"et atelier tissage ass0cie5" 

200 FOR 88-1 TO 1OO0 

210 NEXT 68 

220 PRINT ::"NEOPHYTE-N TI5SERAND=T" 

230 CALL KEVt3.KE.ETA) 

240 IF ETA-0 THEN 230 

2S0 IF KE-78 THEN 290 

260 IF KE=84 THEN 960 

270 CALL SOUNDUOOO, -4, 1) 

2BO GOTO 230 

290 REM ••NEOPHYTE.. 

30O CALL CLEAR 

310 CALL SCREEN (16) 

320 CALL C0LORM6. 14, 16) 

330 CALL CHAR(1S4."7E7E7E7E7E7E7E7E") 

340 FOR Ol TO 30 

350 CALL VCHARU.C-2. 154,24) 

360 NEXT C 

370 CALL COLOR I IS, 10, 16) 

380 CALL CHARU45,"O0FFFFFFFFFFFF") 

390 FOR L-l TO 22 STEP 3 

4O0 FOR A=I TO 2B STEP 3 

410 CALL HCHAR(25-L,A*2, 145) 

420 NEXT A 

430 FOR A-l TO 2B STEP 3 

440 CALL HCHAR(24-L,A*3,143) 

450 NEXT A 

460 FOR A=I TO 28 STEP 3 

470 CALL HCHARI23-L,A*4. 145) 

460 NEXT A 

490 NEXT L 

300 GOSUB 930 

S10 CALL CLEAR 

520 PRINT " RENTRAGE DES FILS DE CHAINE" 

: : " DANS LES CADRES":;:::::: 

530 GOSUB 930 

540 CALL CLEAR 

550 CALL COLOR* 16, 14,16) 

560 CALL CHARU55,"3C3C3C3C3C3C3C3C-') 

370 FOR C-l TO 30 

5B0 CALL VCHARU.C*2.135,24) 

590 NEXT C 

600 FOR C-l TO 30 

610 CA-C 

620 IF CA< = 4 THEN 650 

630 CA-CA-4 

640 GOTO 620 

630 CALL HCHAR111-CA,C*2,4B'CA 

660 NEXT C 




12B0 CALL CHARUZB. "IBFFFFcetFFtpFie-i 
1 290 CALL CDLOR '14.14. 1 6 i 
13O0 CALL CHAfill36. • 7E7 E7 E 7E7I ' 1 
1310 CALI 1,3,136, 7201 

BINT " RENTRE1 '.'OS FILS DE CHAINE EN LEU" AT 
TRIBUANI UN NUMERO DE CADRE DE 1 A 4 fERREUR-O* 
1-3'".' FOR E>1 TO 7" 
1540 CALL HJOWRC12,C*Z,1361 
1350 CALL HCHARU2,02.128I 

L I E"3.KE,ETA> 
1370 IF ETA-O then 1340 
1380 IF KE' 49 THEN 1340 
] (90 IF KE 32 THEN 1340 
1400 IF KE-48 THEN I4BO 
1410 CS-1I0* (KE-48) 
1420 CALL SOUNDUOO, CS.B) 
1430 CALL HCHARI59-KE.C-2.KEi 
1440 FOR BB-! TO 50 
1450 NEXT BB 
1460 TE<C> -KE-48 
1470 GOTO 1320 

14B0 CALL SOUNDUOO, 1047, 2. 1319.2) 
1490 C-C-l 

1500 CALL HCHAR(ll-TE(C>.C+2,136l 
1510 GOTO 1340 
1520 NEXT C 

1530 CALL SOUNDUOO, 392, 11 
1540 CALL 5DUND(10O,659, 1) 
1550 CALL B0UND(10O,523,U 

1560 PRINT "VER1FIEZ VOTRE RENTRAGE": "B-BON E=ERREUR" 
1370 CALL KEY(3,KE,ETA) 
1580 IF ETA-0 THEN 1370 
1390 IF KE-66 THEN 1630 
1600 IF VE-69 THEN 1240 
1610 CALL SOUND! 1000,-4. 1) 
1620 GOTO 1570 
1630 RETURN 

1640 REM ..COULEURS CHAINE*. 
1650 GOSUB 1670 
1660 GOTO 1890 

1670 REM «BANDE ECHANTILLON* 
1680 CALL CLEAR 

1690 DATA 43.55,59,64,75,87,91.96,107,119,127,128,136.147.157 
1700 DATA 45,53.58,71.74.81,93.97,106.113,126.130.140,150.158 
1710 RESTORE 
1720 CALL SCREEN! 1) 
1730 FDR C=! TO 15 
1740 X-Cl 

1750 CALL C0LDR(X.X,1> 
1760 READ TCC 
1770 TCBU.O-TCC 

1780 CALL CHAR1TCC. "7E7E7EFFFF7E7E7E" ) 
1790 CALL HCHARI24.C+2.TCC) 
IBOO IF X<>12 THEN 1B20 
1B10 X-X 
1820 CALI 
1B30 NEX 

1840 FOR C-l TO 13 
1B50 READ TCC 
I860 TC8(2,C)=TCC 
IB70 NEXT C 



fY 



.99 



a/n 



670 GOSUB 930 








6B0 GOSUB 1240 








690 CALL CLEAR 








700 PRINT ■ 


CHOI: 


DES COULEURS": : : : ' 


DES FILS DE C 


710 GOSUB 930 








720 GOSUB 1640 








730 CALL CLEAR 








740 PRINT " 


CHOId 







DE5 FILS I 



"CES RENSE 



OONC LES FILS DE CHAINE":: 
750 PRINT " OUI SONT LEVES POUR PERtlET 
NT LE FIL DE TRAME" 
760 GOSUB 930 
770 GOSUB 930 
7SO CALL CLEAR 

790 PRINT ,, PREFERE7_V0US": :"DONNER VOS PEDALAGES OU 
SIR-t t 

BOO PRINT "l'VOS PEDALAGES 2=HA5ARD" 
81 O INPUT N 
820 IF N>2 THEN 810 
830 IF N-0 THEN 810 
840 ON N GOSUB 2420,3070 
B50 CALL CLEAR 

860 PRINT ■• CHOIX DES COULEURS" I 1 1 
870 GOSUB 930 
8B0 GOSUB 3740 
B90 CALL CLEAR 

900 PRINT "JE VOUS REMERCIE POUR T0U5' 
F D'OEUVRE"! is: : : : : 
910 GOSUB 930 
920 GOTO 4320 
930 FOR BB-1 TO 1400 
940 NEXT BB 
950 RETURN 

960 REM ..TISSERAND". 
970 CALL CLEAR 
?B0 CALL SCREENUA) 

990 PRINT "RENTRAGE DES FILS DE CHAIN! 
POO FOR BB-1 TO 100 
10 NEXT BB 
>20 GOSUB 1240 

030 CALL CLEAR 

040 PRINT " CHOIX DES COULEURS":: 

O50 FDR BB-1 TO 100 

060 NEXT BB 

O70 GOSUB 1640 

080 CALL CLEAR 

090 PRINI "PEDALAGES CHDISIS- 

100 INPUf N 

1 10 IF N-2 THEN 1 100 

120 IF IJ-'.i THEN 1100 

130 ON 



LES CA"::"DRES 
TRE LE PASSAGE DE LA NAVETTE" :: "PORTA 



"LAISSER LE HASARD EN CHOI 



"V01CI VOTRE CHE 



'it Ml 



DANS LES CADRES": 



CF.S FILS DE CHAINE" 



TIDUErlENT'2" 



<> CALL CLEAR 

ISO (PINT " CHI 

160 FOP BB-1 in 100 

1 /■• NE/ I BB 

ISO GOSUB '/■!" 

190 CAU I EAI 

00 I MM ■ TlSSf 

210 FOB BB-l 'O IOO 

■.■■. ■■ rif ■ | Bl 

230 BOTO i»320 

240 ftl m ■•'■! NTRAOI ' AMI '■■' 

CLeAl 

260 i M i CO u'' i 1,2, II) 

270 CA1 i CO) ONI i '. 15,4) 



pea couLEURB" i 



II ;, [,[ K CM! ■: 



HCHAR (22, C*2, X+63) 



1890 CALL SCREEN! 161- 

1900 PRINT :: 

1910 INPUT "NOMBRE DE FILS DE CHAINE NE CES 

SAIRES A UN RYTHME DE COULEURSIDE 1 A 30) ":CC 

1920 IF CC-0 THEN 1910 

1930 IF CO30 THEN 1910 



RINT : 



1950 FOR C=l TO CC 

1960 CALL COLOR 12, 2,1) 

1970 CALL CHAR<46,"3C3C664242663C3C"I 

1980 CALL COLOR! 15. 13, 1) 

1990 CALL CHAR! 151 . "00001B3C3C1B" > 

2000 CALL HCHARU2,C'2,46) 

2010 CALL HCHARU2,C*2. 131) 

2020 CALL KEV(3,KE,ETA) 

2030 IF ETA-0 THEN 2000 

2040 IF KE<65 THEN 2070 

2030 IF KE>BO THEN 2070 

2060 IF KE<>75 THEN 2090 

2070 CALL S0UNDU000.-4, 1) 

2O80 GOTO 2000 

2O90 CALL SOUNDUOO, 69B. 13,800, 13, 1047, 13> 

2I0O KE-KE-64 

2110 IF KE016 THEN 2130 

2120 KE-KE-3 

2130 CALL COLORIKE.KE, 16) 

2140 TCIO-KE 



2150 ' 



■ TCBC 



,KE) 



. CHAR(Y."7E7E7EFFFF7E 
2170 CALL HCHARU2,C»2.Y) 
2IB0 NEXT C 

2190 CALL SOUNDUOO, 392, 1) 
2200 CALL SOUNDUOO, 659, II 
2210 CALL SOUND! 100,523, 1) 
2220 FOR C-l TO 30 
2230 CA=C 

2240 IF CA*-CC THEN 2270 
2250 CA-CA-CC 
2260 GOTO 2240 
2270 KE-TCtCA) 
2280 Y-TCBU.KE) 
2290 TC<C)-KE 
2300 CALL COLOR ! KE, KE, 1) 
2310 CALL CHAR!Y,"7£7E7E7E7E7E7E7E"1 
2320 CALL VCHAR (1 2.C+2, Y, 9) 
2330 NEXT C 

2340 PRINT "VERIFIEZ VOTRE REN 
TRACE"! "B-BON E=ERREUR" 
2350 CALL KEV !3, KE. ETA) 
2360 IF ETA=0 THEN 2350 
2370 IF KE-66 THEN 2410 
2380 IF KE-69 THEN 1950 
2390 CALL SOUND UOOO. -4, 1 ) 
2400 GOTO 2330 
2410 RETURN 

2420 REM "PEDALAGE CH01SI" 
2430 CALL CLEAR 
2440 CALL COLOR! 16, 14.7) 

2450 CALL CHARI153, "FFFFFFFFFFFFFFFF") 
2460 CALL COLOR U3, 10, 12) 
-?47t> CALL CHARU44-, ■O0-7e?E7E7E7E7E" ) 
24B0 INPUT "CH0IS1SSEZ UN NOMBRE DE PEDA 
LAGES DE 2 A 16 ":P 
2490 IF P>16 THEN 2400 
23O0 IF P-:2 THEN 2460 
2510 CALL CLEAR 

2320 PRINT "FIL LEVE"* 1 -NON 2-OUI < 

2530 CALL HCHAR (22, 19, 1 44 ) 
2340 CALL HCHAR (22. 29, 1331 
2350 FOR D-! TO P 
2560 IF D>9 THEN 2390 
2370 CALL HCHAR (I9-D, 1 3, D*4B> 
2380 GOTO 260O 
2390 CALL HCHARU9-D, 13,1 
260O FOR A-l TO 4 
2610 CALL HCHAR(20.A*14,i 
2620 FOR BB-1 TO 5 
2630 CALL HCHAR ( 19-D,A*1> 
2640 CALL HCHARU9-D.A*I< 
2650 NEXT BB 

■ CAl i i EY(3,KE.ETA) 
2670 IF ETA-'J THEN 2620 
. 680 ti i l ffl '"' N •■. ■■ 
2690 IF I E 50 IHFn 2620 

2700 ir i E-4fl rHI ii :"'i" 

2710 X-l I «9 

2720 call SOUND 1 100, ■ ■ 

27 '■■ ' ■■! i I ■ '■ ■■ !■- '" I ' 

2/4'i TOR BB-1 10 50 
2780 mi K i BB 
2760 il"D.A)-f 
■ '■■ BOTO 2B40 

Al ' B0UN1 1047, 

. '9 

BOO IF A rHI m . B 10 
2S I O A-4 
202O D-D- I 

■m ■ irii 2610 

. B40 mi ' ' A 



•261 ' . 1 ) 



2360 CALL SOUND!!' 

■:<IINDU00.63». 1» 
. ■ ■ I . 

2B90 PRINT -VEP1FIE7 WOT! 
: "Ba>BON E-EPREUR- 

t.l =.ETA. 
2910 IF ETA> 

293 : r v ■■-- ■■ . 

293 [F 1 E-69 THEN 2430 

2940 CALL SOUNDtl'' 

2930 GOTO 2900 

2960 CALL CLEAR 

2970 FOR 0-1 TO 24 

3980 CA-D 

2=90 IP c~ ■-- --E-, - ; 

3OO0 CA-CA-P 

3010 GOTO 2990 

3020 FOR A-l TO 4 

3030 TPID.AI-TPICA.A) 

304O NEXT A 

5050 NEXT D 

3060 RETURN 

307O REM .'GENERATION PEDALAGES-* 

3080 CALL CLEAR 

3090 CALL SCREENUO) 

3100 PRINT " GENERATION AUTOMAT10UE- : 

il" DU PEDALAGE-::=s 

3110 X-0 

3120 Y-0 

3130 FOR A-l TO 4 

3140 FOR D-l TO 16 

3130 PEDIA.D1-X 

3160 Y-V.l 

3170 IF Y<-3" (A-11THEN 3190 

3180 V-Y-(2~(A-11) 

3190 GOSUB 3220 

3200 NEXT D 

3210 GOTO 3290 

3220 IF Y-2' <A-1>TH£N 3240 

3230 RETURN 

3240 IF X-0 THEN 3270 

3250 X-0 

3260 RETURN 

3270 X-l 

32BO RETURN 

3290 X-0 

3300 V-0 

3310 NEXT A 

3320 REM ..TRI PEDALAGES. 

3330 CALL SCREENU61 

3340 INPUT "CHOISISSE* UN NOMBRE DE PE 

DALAGES DE 2 A 16 " ! P 

3330 IF PM6 THEN 3340 

3360 IF PC THEN 3340 

3370 CALL SCREEN1B) 

3380 XA-0 

3390 XB-0 

3400 J 



3410 



(0-0 






3420 FOR D-l TO P 

3430 RANDOMIZE 

3440 RZ-INTU4.RND)*2 

3450 IF RZ-ARZ THEN 3430 

3460 ARZ-RZ 

3470 FOR A-l TO 4 

34Q0 TPtD.AI-PED(A.RZ) 

3490 NEXT A 

3500 XA-TP!D, 1)*XA 

3310 XB»TP!D,2>*X8 

3320 XC-TP<D.3)*XC 

3530 XD-TP(D.4).XD 

3340 NEXT D 

3530 IF Xfi-0 THEN 3300 

3560 IF XA-P THEN 33B0 

3570 IF XB-0 THEN 3380 

3300 IF XI— P THEN 3380 

3390 IF XC-0 THEN 3380 

3600 IF XC-P THEN 3380 

3610 IF XD-0 THEN 33B0 

3620 IF XD-P THEN 3380 

3630 CALL SCREENU6) 

3640 FOR D-l TO 24 

3630 CA-D 

3660 IF CA<-P THEN 3690 

3670 CA-CA-P 

3680 GOTO 3660 

3690 FOR A-l TO 4 

3700 TP<D,A)-TP(CA;A> 



37K 



NEX' 



3720 NEXT D 

3730 RETURN 

3740 REM ■•COULEURS TR.AME" 

3730 GOSUB 1670 

3760 PRINT II 

3770 CALL SCREENU6I 

3780 INPUT "RYTHME DES COUL 

EURS DE TRAMEIDE 1 A 4) "il 

3790 IF T>4 THEN 3780 

3800 IF T-0 THEN 3780 

3B10 PRINT iiniDiiliiii 

3820 FOR D-l TO T 

3B30 CALL COLOR (2, 2,1 1 

3B40 CALL CHAR(46,"3C3C664242663C3C 

3B50 CALL CDLOR i 15, 13, 1 ) 

3060 CALL CHARU51, ,, 00001B3C3C1B' , > 

3870 CALL VCHAR !D» 10, 3.461 

3880 CALL VCHAR (D. 10, 3. 151 1 

3890 CALL KEY (3, K£, ETA) 

3900 IF ETA-0 THEN 3070 

3910 IF KE<65 THEN 3940 

3920 IF KE>BO THEN 3940 

3930 IF KE<>75 THEN 3960 

3940 CALL SOUNDUOOO, -4, 1 ) 

3950 GOTO 3B70 

3960 CALL SOUNDUOO. 698, 

3970 KE-KE-64 

3900 IF HE016 THEN 400O 

3990 KE-KE-3 

4000 CALL COLORIKE.f-E. 161 

4010 TCT<D)-KE 

4020 Y-TC8U.)'Ei 

4030 CALL CHAR(Y."18FFFFFU I I I I I IB 

4040 CALL OCHARID.IO.S.V) 

4050 NEXT D 



15, 1047, 131 



4060 


CALL SOUNDUOO, 392, 1) 


4070 


CALL SOUNDUOO. 639. 1) 


40S0 


CALL SOUND (100,323, 1) 


4090 


FOR D-l TO T 


4100 


KE-TCT(D) 


4110 


Y-TCBU,):E> 


4120 


CALL COLORIKE.KE, 1 1 


4130 


CALL CHARfV. "OOFFH f If! 1 P 1 1 


4140 


CALL HCHARIDUO, \ Y..'"P 


4 1 50 


NEXT D 


4160 


PRINT "VERIFIE? VOS CD! 1 




": "B-BON E-ERREUR" 


.-, I ;■ . 


CALL IXY'3,1 C.E1A) 


«ieo 


IF ETA-0 THEN 4 i TO 


4190 


IF KE-66 THEN 1. *" 


4200 


IF cE-69 THEN S620 


4210 


CALL SOUNDUOOO, -4, | 1 


' 


GOTO 4170 


I-."., 


rm i n tar 


4540 


i OR o-i TO -'4 


i 50 


CA-D 


4360 


li cc - i iii! n 4290 


■ 


CA-CA-T 


•1 'IL. 


BOTO ■! 60 


.1. 90 


TCI (Ol-ICHCA) 


« [00 


Nl . I li 


■\ io 


p ! TURN 


i ■ 


i.i h .. i ISflAOl ■• 


4 ■ 


i A| i i i l ci. 


.; | 4l 


ii n .i HA INI • 


1350 


1 p.i 10 


* J6< ■ 


Y-KUCI 


i .-,■ 


!■■ 1 . . i 


■i ibo 


CALI : 1 ! ..1 ■ , . . . 1 1 



Suite pngv 7 



ECLUSE 



Ce programme montre par une animation, le franchisse- 
ment d'une ecluse par un bateau. Pour tout public. 
Encore une merveille de I'E.A.O. 

Emile CLERC 



...,,<<..,,.,<> 



It NOHTREK UN DESSIH RHINE 



I 'ECLUSE 

■■ . ■ I ■ : 

. Jf ELEVE3 CM2-6EHE-5EHE. 
3 ......KM-.-r." .;,;,fif IGNITION TR330 "I NIVE A ■..'_. 

RUTEUR EriILE CLERC. 
- 1000 
5 ::'.'■;. r. -- 

JZ ivm> PELLE THEEESE El JE Vfll 

R T'lNSTRUlRE. 
.'E3FEFE nije NE3 E PLICATION.. SEP.'NT 3UFF II ANTES ' 
.IHEHCER, RPPUIE SUR EMTER." INPUTCOS 
■ JBI8888 

[08 CLS TITPE 

110 FflNT'riKiiiiiiiMiiMllr UNE £ E L U S £ uniiin.nuiiir 
TRHCE I 1 '.' FOND 

218 fi»=CNFV. 1?1 ' 

220 FCRT»784T 1767 

238 PRlNTtT.fl* 

240 NEXT! 

250 FCFMlCilw hextz 

TRACE PES PORTES 

3IB p*488 Pl=426 

KB F0RT»iTO6 

330 PRINTER, fii.&Pl, AS* 

34$ P=P*64 P1=P1*64 

350 "EXT I 

360 fopz=]toi0o nextz 

488 ' ERU OEVftUT PORTE 1 

410 E=4-43 

420 F0RT-ITO4 

430 F0RTT-1T0I6 

4-10 PRINT8E.CHR* 43>j 

456 E=E*1 

468 HEXTTT 

470 E-E*48 

480 MEXTT 

490 F0RZ-1T0598 NEXTZ 

598 ■ ECPI TURE LECENDE 

510 PRINTe22B»"BRSSIN "■ 

520 PRINTS466*"« PORTE 1". PRIHT6493, "<< PORTE 2", 

530 PRINTe&Sr, "■:' VANNE 1 + + + + + +++++++ + + + " j PRINTe£83/"« VflMME 2+++++4+++4 

540 FOPZ=1TO2O00 NEXTZ 

690 ' ARRIVEE BATEAU 

610 PRINT8848, "UN ERTERU ARRIVE ..." 

620 E*=CHPV 176, + CHPV 176 <-CHF*< 140 'tCHR*( 131 > 

630 B1« = 3TPING«':4," "> 

640 PRINTS384,B8j 

650 F0PZ=lT0:-00 NEXTZ 

660 PRINT5.:40. STRINGS'; 64." ») 

678 F0R_>ITQ388 NEXTZ 

700 ' PWSSflGE PORTE 1 

710 PRIHT5S40, "LA VRNHE 1 Vfi 8'OUVRIR" 

720 FOPX=1TO20 PRlNir-656.CARS< 123.,. FOP2=1TO50 NEXT:: PR_NT'_655.CHP»( 191 ); 

T058 NEXTZ NEXTX 

730 PPlHTe656.CHR*f43>; 

735 PRIHTS340, STRING* 64," " >, FOPZ=1TO500NEXT2 

740 PRINTe848. "LA VfiNNE 1 VIEHT DE S'GUVRIR". 

750 FOPZaiTOSeS-NEKTZ 

760 PFI|iT'i:-14,"L'EF-n VR PENETFER DANS LE BA33IH 

778 F0RZ-1T098B' HEXTZ 

TRRCE DE L'EAU DAiri BHSSIH ^ 




■ 'F-F+l 



LE BATEAU RVflNCE. "i 



310 F = 657 
320 FQPT=1TQ4 
330 F0PTT=1T025 
340 PRINTttF,CHR»_43. 
350 NEXTTT 
360 F=F-3? 
870 NEXTT 

330 PRINT>_340,31RIN'-*U23," " ). 
335 F0FZ=1T0530 HEXTZ 
500 PPINTi;.340."LE BA331N EST PLEIN 
LR PORTE 1 VFI S'OUVRIR."; 
510 F0RZ-1TQ988 NEXTZ 
9.'_0 FFINT^34'j.3;F- INi.V 123." " <. 
525 F0RZ=ll"O5O0 NEXTZ 
1000 0-488 
1010 FORT=ITCM 
1828 PRINTeG.CHRW I28>. 
1030 IFG>4ieTHENPFINT?G.CHR«'. 43 >, 
1040 C=G*64 
1050 NEXTT 

1 100 ' LE BATEAU fiVRHCE 

1110 PRINT8348. "LE BBTEflU VR RVAHCEF DA! 

1128 F0RZ-1T098B NE !TZ 

1138 PRIHTC848 3TRINGK64." "-. 

1 140 FORZ : ■ 988 Ml tTZ 

1150 PRINTK 

1200 r.»-CHP*' 176 ' Cl«"" " 

1210 FOPT*1T04 

L228 PRINTf384>B»; T0RZ»lT0iee-NEXT2 PRINTe384.Bl») 

1230 B»=C«*B* B1»=C1S*B1* 

1250 NEXTT 

1303 bi=CHR*< 131 }.CHP»( 140}+3TR!NG»(6.CHP« 176)HCHR»< )4fl>+CHR«' 131 ) 

131*? E:|»^S1R1HC»{10." ") 

132y E»384 F0RT*1TQZ6 

133a FPINTC-B-B*. 

i34o F0ft2=i roiee hextz 

1350 PPIHTC'B.BI*. 

1360 B=B+1 

1370 tiLXTT 

1330 PRllITfr41y.B*. 

1400 FERtlETURE POPTE 1 

1410 f FIMTi.-3-tO 3TPIMW64." " >, 

1415 F0RZ-ITO58B HEXTZ 

1420 PPlflT r ;340. "Lh PQPTE I VR 3E FEFEPMER."; 

1438 F0RZ-1TO988-NEXTZ 

144B P=400 

1450 F0RT-1TO6 PP1IITG:P.R>. P=P*64 NEXTT 

1460 fof.:--i ro500 he:-:tz 

1300 ' PftSSflGE POPTE 2 

1510 PRIMTr/340.31FlHC«'64." ") 

1515 F0RZ-1T0589 NEXTZ 

1520 PP1HT»840..' , LH VRNME 2 Vft S'OMVRI P. " , 

1530 F0R;;-1Tp.^0 FP 11115632, CHPf-; 123 >, -FORZ=n 050 NEXTZ PRINTe6F;2. CHP«' 191 t 

11050'1'EKrZ ne;<t>; 

1540 FF lNr56'J2-LHP»' 4 J •■ 

154^ PPIIttL'-.-i40. ilFIN'.*' :■■'■ - ■■'■ FOI-Z MOiVU N-:,:;.. 

1550 PPllirf-340, ,, LA VWHNE 2 VIEHT t-E S'OUVRIR.") 
1560 F0R2XT0988 NEXTZ 




TZL- 



PPIMT»?04."LEfiO VR 8'EH FILLER W Bfl 
F0RZ-1TO988 NEXTZ 
PRIHTB84 .. r- ; - 

FORZ-ITOSee NEXTZ 

PPItlTi«410.t'!*- FFIIH ;J>;5. ;.1F Hi.",* _•:,■ " 
FFIHTe63j. 5.TPIH'i»' 21. ;i--< 4 : 
PPIHTi«474.B». 

F0RZ-IT0388 NEXTZ 

PFINT._-474.B1* FFiNT._5_.2.3TFl!i_*'25." "/■ 
PPIHTi533.B«- 

F0RZ-IT0388 IffiXTZ 

FPINTi_533.&l». PRINT352_.'_TPlNr:*^25.* - . . 
»682.e»J 

' Lfi PORTE 2 S'OUVRE. 

PRIHT6849 STRINGS' 123- ■ ■ >■ 
F0RZ-1TO588 MB TZ 
FFiin._340. N LA PORTE 2 S'OUVRE." 
FOPZ=1TO50O !€XT2 
G-426 

F0PT=1!Q4 

■■:■•: •: Ht» 123 n 
PRlHTe493." 
C«G*«4 NEXTI 

' LE BATEAU OUITTE L'ECLUSE. 

PRIHT6848 STRING* 64." - ij 
F0RZ=1T0588 NEXTZ 

ff:ni'_340.- LE ERTERU TUITTE L'ECL'JiE ". 

PRINTe948. "BON VOYAGE II" 

B°68Z 

F0RT-IT027 

PPllllr-B.BS. 
FfjpZ=lTOlO0 NEXTZ 

FFinTi.B.Bl*, 

i?oo he;;tt 

2000 PRIHT084ij.3TPIN&f 123," " >. 

..Oio fopz=ho5>.0 ne::tz 

2020 PRINTi?340."'N0U3 RLLONS HRIHTENRMT REQRROER Oil EWTEfiU QUI RB10HTE LR RIVIERE 

2030 FQRZ-1T01&0Q HEXTZ 

2040 PPlllTi;:_40.3TF:lN'_*. 64." " ), 

2050 F0PZ=1T0500 HEXTZ 

2060 PRINT8848, "LE BFilERtj REH0HTE LE COUPANT " 

2100 ' LE ERTERU ENTRE OAHi LE BflSSIN. 

2110 6=629 

2120 PRINTeB/EWf 

2130 F0RT=1T027 

2140 PRINTeB,B») 

2150 FORZ=IT0100 NEXTZ 

2160 FPlNTi_B.Bl«. 

2170 B=B~1 

2130 NEXTT 

2135 PRINT8B.8SJ 

2198 F0RZ-1T058B' HEXTZ 

2200 ■ LR FORTE 2 3E FEPME. 

2210 C--4&5 
222? F0RT=IT03 

7230 F'PIMTr_C.i.HRS' 191). 

2240 G=C*64 

2250 NEXTT 

226'. FOPZ=1IO'.00 NEXTZ 

2388 LE ERTERU REI10NTE 

2310 ' LA VRN1IE 1 CLl^NOTE PUIS S'OUVRE. 

2320 F0RXolT02e PRINTSe5€>CHRS(I2S>J F0RZ»1T058 SEX.T7 PR[NTI_656.Chrk 19 1 ). 'FOWZ. 

1T050^HEXTZ NEXTX 

2330 PRINTa656.CHR«43>J 

2340 F0RZ»IT0588'HEXTZ 

2400 ' L'EAU MONTE, LE BATEAU FWSS1. 

2410 PRINT«682*Bl*i 

2420 PRlHTe538> B*i 

2430 PPINTl_533,3TF:IN6«. 25.3HR*' 43>. I 

244ij FORZ= 1 10300 NEXTZ 

2450 PRINTa538.Bl*i 

2460 FPINTG474,B«. 

2470 PKIHTi_529,l.TPING*'.25.CHR«43)>; 

2430 FOPZ-1T0300 NEXTZ 

2490 PRIKTr-4lO,&« 

2^-00 F'RIini_465 J 3TRIN0*(25,CHR«43>)J 

2510 FORZ^lTij.O'. HEXTZ _^ ^^ 

2700 LR FORTE 1 S'OUVRE. __T« 1 » 

_■;■;,., K- 400 FPn<T-F-. P==P«-64 ^% VLl I 

2720 F0RT=1T04 __.i___«%^_____ IJV 

273B FFIHTGP,CHR»C43>i ^^T m____L ^^» ^^ 

2740 P=P*64 » V»^^ 

2750 MEXTT % \ ^ 

2760 FORZ=1TQ500 NEXTZ » 

2300 ' LE BHTERU S'EN Vfl. 

2310 B=410 

2820 F0RT-1T026 

2S30 PRINTi26,B*- 

2340 FORZ=1T0100 NEXTZ 

2350 PRIHTeS.BlS, 

2360 B=B-1 

2370 HEX IT 

2330 FOFZ=nO50O'NEXTZ 

3000 PPlNTC&40.3TRlNG»'-64," " >. 

3010 FOPZMT0500 HEXTZ 

3020 PRINT8B32i"l'ECLUSE E3T PRETE R RECEVOIR UN NOUVEHU BATEAU DESCENOFWT 

LA PIVIERE." 

3030 FQRZ-ITOSW'NEXTZ 

3040 PRINTr_3_2.3TPlNGV 123-" " >, 

3050 FOPZ=1TO500 NEXTZ 

3868 PRINTe832."SI TU VEUX LE VOIP. TAPE I ET ENTER- 3IN0U IFiPE 2 El ENTER." 

3070 INPUT". IF'i<I0RS>2THEN306e 

3080 IF3=1THEII3100EL3E32OO 

3100 PRINTr-3'32,3TRING«' 192," " ), 

3120 COTO1O0 

3200 CLS'PPINTCHP*'23',"RU REVOIR, 

NOUS RV0H3 TEPH1HE NOTRE VO'.'AGE. 

J'ESPEPE QUE TO A3 PASSE UN 

BON MOMENT. 

A BIEHTOT 

THERESE. " 
3210 FORZ=iru. OOO NEXT,; iioTOS 

10000 CL5 PPIHrCHP«'23>. "APPLICATION DU PRINCIPE 
DEB VASES COMMUNICANTS^ 

L'ECLUSE " 

10010 print-print"un bateau ou une peniche 

ne reuyent pr3 facilemeht 

c-.:3i:en_ire ou penonter 

un coups d'eau a cruse 

de lr force du courrnt." 

10020 prjnt"il a donc frllu conbtruire 

de*i, barrages pour calmer le 

COURRNT." 

10030 PRINT. PRINT-FOUR COHTINUEP. RPPUIE SUR ENTER" INPUTCO* CLS 

1004" PRIHTCHR«-23'."MAIS LES BATEAUX NE SRUTEHT PAS' 

IL A FRLLU LEUP CONSTRUIRE 

[■E3 R3CENCEIJP3 3FEC1AUX 

CE SUNT LES ECLUSES." 

18898 PRINT PRINT'JE VAIS IE M0N1RER COMMENT 
FONCTIONNE CET ASCENCEUR 

A BATEAUX. " 
10060 PRINT' PRINT'POUR COMMEHCER- RPPUIE SUR ENTER." IHPUTC0* 

18878 CLS RETURN _ 

38988 GOTO5O0OO ■ 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 - 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 

NOM: MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT: ^CHEQUE DCCP 



BOMBARDEMENT 



Seut. (ace a une ville tentaculaire a bord de votre bom- 
bardier, aurez-vous les reflexes necessaires pour sauver 
votre peau ? 

Serge PIT 

;-. PRIKT'3 POKE53248+21,e POKE33252,e;pQKE53253j0 POKE53231,0 

4 PRINT *•»•*»•>*• 

5 FPlNT"iMIM»H**'*m.. 

f FKlllf"lll)MMH«M •»•*»*♦«••*»♦•*•" 

7 PRINT"«M» PRIHT**J£U CREE Pfifi SEROE PITJW08" 

11 Pftinf'HPPUVER SUR Lh BflRRE D'ESPRCE" PRIHT"POUR BOHBfiRDER' PR] 

12 PRINT" CHulSItSEJ: Lrt V1IES3E DE vuIKL LuMBhR-DIER ■ •: 1-2-3 OU • 
15 GET DF* IF DFI = "- THEM 13 

14 DF-VRL<OF*)' IF<DF-i>*<DF-2)«DF-3>»tIIF-4>OeTHEN 13 

15 PRIKT'D" 



hPDEMENKW*' 



PRINT PRINT 




22 C0=6 

25 I=IHT(RM0(lj«15^*l CO=CO- 

36 FOR H=l T01 -PRIHT-'Wa-in"; -NEXT 

33 IF CO=36 THEM 95 

34 FOR HR=H-1 TO 1 STEP- 1 

35 PR1MT-B-. 

36 NEXT HR:PRIMT"II". 
40 GOTO 25 
78 PRINT" Ti 



COMMODORE 



1000 .'=53248 -poke2642,i3 
1200 f0rn=0t062 read u-pgke832+n,w:next 
1245 rem apparition du bombardier 

1249 P0KEV*41.7 

1250 POKEV+21,4 Y=Y+<.DF*4J 

1303 FORX=0 TO 255STEF2*DF PGKEV+4,X 
1466 P0KEV+5.V 

1465 REM DETECTION COLLISION 

1416 IF PEEKC1024+UMTCX/BJ >+46»<IMT<,V/8j-4^ = 186 THEN 5066 

1495 REM— LFlCHER DE LA BOMBE 

1589 GET A* IF A* = " • THEN B0=1 YL»INT<V/S>-3 XL=INT*.X/3.» 

1581 IF B0O1THEN1595 

1570 REM LA BOMBE TOMBE 

1573 VL=VL+1 

1574 IFYL=25THENB0=3 

1575 POKEI024+CIHKXL >-l>+40*tVL-U,81 P0K&54272+1624-K INf (XL)-l J+48*<V|_-1>, 1 

1576 P0KE1624+(IHT(XL >-l)*40*CVL-l >,32 
1595 HEXTX 

1597 REM— BEUXIEME PARTIE DE L'ECRHH 




1606 POKE V-16.4 

1638 FORX-8 TO 63 STEP2*DF F0KEV4.X 

1668 POK£V*5*V 

1*65 IF PEEKU024*(MTCX/S> >*W>. IMT' :V/8)-4»-186 Th£n SOW 

Un iPiSoniSiM IHE " B0 "' ^"""-w^ immkohhs** 

1573 YL=YL*l 

1574 ipvl=25Theneg-j 

| c l' J :^^e24-.lMT(XLy-l;.48«<VL-U.91 P0KE54272.1«24*<INT(XL>-lj»4e«(YL-ly,l 
1676 POKE1824+(IMT(XL >-I>+40«(VL-l>,32 
1695 NEXT X 

iree pokev+21,0 poxEv+ie.a 

1710 FOR EC-1424 T02823 

1715 IF PEEKCEOM86 THEN 1750 

1725 NEXT EC 

173a PRINT 1 -*' PRINT"»/0U3 A'.'EZ DETROIT LB VILLE!" 

1731 PRINT -SCOPE ALTITUDE ",'.-INT'V, 3>»t5.'»l66, TV 

1732 PRIHT"VITESSE " . DF*500, "KM/H" 
1T33 F.jR OT -1 TO1G006 next PRIHT*3" RESTORE GOTO 3 
1758 GOTO 1256 

^ 4908 REM— -L-RVION HHEURTE UN IMMEuBLE'-- 
5000 Pu>.£'-.'»21 ,6 FH=8 
5061 P0KE53281.2 
5002 F0RQT=1T0 3 NEXT 
5603 PGKE53281.7 

5084 FOR QT=1 TO 8 -NEXT 

5085 FH=FH+1 IF FK/15THEN POKE 53281.0 GOTO50I2 
5066 GOTO5001 
5012 POKE2043.14 

5020 FOR N=>0 TO 62 -READ Q -POKES96+N,0 NEXT 

5021 PC r .EV»42,'fi POV.E 1 .'. i..< FC',E7-7,i20 POKE V+2i,8 ■' 

5022 POKE2044.15 

5625 FOR N=8 TO 62 REHD y P0kE968*N,»;NEXT 
ioia ri>.EV*4 3. 2 PCKEV+21 .24 

5835 F0RPX=1 TG255-<<flBStX-Y)*(X*V> >A2>>: P0KEV*8,X*P* P0KEV+9.V+PX:HEXTP9 
5838 FOR 0T=1 TO 1606 NEXT 
5639 PRINT"*", 

5843 RESTORE POKE V+21.0 PRINT-.TCTOMNGULEZ-VOUS REJOUERCO OU HiT 
584S GETRPJ IFRP*="G"THEHG0T03 
5850 IF RPtO"N"THEN GOTO5045 
5855 PRIHT'TIEKUJGOaaaJMIMIMiai BIENTOT ! " END 

5998 REM— DGNNEES DE CREATIONS DE 

9999 REM — L'flVIOH ET DU PARACHUTE 

188C3 DAT A6, 8, 0.6. 8. 0.8. 6, 0.0, 0.0, 0,0, 8 

10081 DATA24, 0,0, 38. 0,6, 7, 8,8, 183, 192,0 

16002 DATA247.24tj. 0.251 .248.240,255.255 

10003 DATA 1 52. i 1 ^. 255. :i4. 255 -255. 254, 127. 255. 24S. 7. 248.0. 15. 2<-4, 0,31. 192.0,63.0 

16885 DATR6, 124.0,0,0.0,6 

26666 DATR0. 127,0, 1,255.8.3.255,8.3.254.6 

206 til DmTh3.24*.8. 1,224.0,1. 192,6.1 

28002 DRTR192, 6, 1,224,0, 1,224,8. 1 

28063 DATA224.0. 1,240.6. 1.246,0,1,252.0 

20084 DATHl.255-246- 1.255.156.6.255,142 

20665 BATH0. 255, 255. 0.255, 255.8, 127,252 

20806 DmTA8.31.246 

30000 I>HJr0.6i. 123.0, 127, 192,0.255,224 

3000! DATA1 . 255, 232. 1 , 255- 236. 3- 57, 200 

30602 DRTA2-t£. 136,2, 16, 136.2.17,16,1.17 

30883 BATA32. 1, 17,64,6. 146,64,8, 146, 128 

30804 DmTmO. 83, 0.0. 62.0. 6 -26, 0.8, 8, 0,0 

3000v LATA60. 0,0.60.0,0.24,0,8,36,0 ■ 



SAUVETAGE 



Mettez votre casque et allez chercher le plus rapidement 
possible six blesses a I'interieur d'un batiment detruit. 
ayant trois niveaux (temps limite a 3 mn). 



Bruno INTERNICOLA 



Une fabrique de robots de protection vient d'etre detruite par une 
explosion. Six blesses son! repartis sur les trois niveaux. 
Vous etes un pompier et vous devez sortir les blesses le plus rapi- 
dement possible. Malgre la violence de I'explosion. neuf robots 
protecteurs {3 par niveau) sont en etat de marche. mais bien 
caches. Six robots sont des robots teleporteurs et si vous rencon- 
trez I'un d'eux. il vous teleportera a un endroit quelconque des trois 
niveaux. 

Les trois autres sont des robots videurs et si vous rencontrez I'un 
d'eux, il vous expediera dare-dare a I'exterieur. 
Si vous transportiez des blesses lors de la rencontre avec un robot, 
il vous les prendra et les placera a un endroit quelconque des trois 
niveaux et lui-meme se deplacera. 

Une ambulance apparaitra a gauche de I'ecran lorsque vous serez 
surle premier blesse et c'est a I'arrierede cette ambulance que les 
blesses doivent etre amenes. 
Deplacements : Touche F1 = NORD 

Touche F7 = SUD 

Touche F3 = NORD-EST 

Touche F5 = SUD-OUEST 

Touche Z = OUEST 

Touche C = EST 
Pour changer de niveau, entrez le pompier dans I'ascenseur se 
trouvant en haut et a droite de chaque niveau. 
La touche 1 fera apparaitre le pompier au niveau superieur 
La touche • fera apparaitre le pompier au niveau interieur 
La touche fera apparaitre le pompier au niveau intermediate. 
Pour bien comprendre le deroulement du jeu. il y a possibility de 
fai re apparaitre les robots en appuyant sur la touche representant la 
fleche a gauche . la touche 3 les tera disparaitre. 



! REM*H0m INTERN! CQLfl BRUNB W 

2 REM** ;EU GPAPHIOUE PGUP VIC-28*3K ♦* 

3 REItM TITPEK SAUVETAGE »♦« 

5 DATA255- U, <i55, 0. 255 ■ 8. 255.6 

6 PftTft35-l76.*4. 1 1"8 ■ o€i . 166-64,128 

7 DftTHt.2.3, 16.21.42-85. 170 
S IimTA255,2.253. 16.245.42-213,170 

9 DATA^j. 60. 24. 36.0,0.0,0 

10 DArA6.24,12&. 24. 36-0. 0,6.1 

11 DATM0. 6,0.0. 96. 60, 24. 36,0, 

12 DATftO , 43- 48 . 96 . 96, 32-48.0 

13 DATA6, 24, 24. 43-48. 16-24,0 

14 BATA0. 12- 12.24,24,8. 12,0 

15 DHTA0,6,6. 12,12,4,6.0 

16 DHTA6. 3.3,6,6.4,3,0 

17 DftTA6, 6.6, 3, 3,2, 6,0 

18 DATAe, 12. 12,6,6,4,12.0 

19 DRTft0.24.24, \%. 12.8.24.0 
28 DRTA0, 43. 48, 24. 24. 16-46.0 

21 DMlA6.3e.96.4S.4S, 32.36.0 

22 DATR6. 192. 192.36.96-64,192,6 

23 DATR8. 8.0. 6. 64. 224-64. 160 

24 DRTR6. 0.6- 32, 112.32-60.8 

25 DHTR0-0-16.56.I6.40.0.0 

26 DATA0,8.28.8.20,0.0,0 

27 DRTR4, 14,4, 16.0,0,0,0 

28 IlfiTFil,3,1.2.0.0,0'0 
23 DRTR15.31.63.35.35,35,43,63 

30 DRTR24.24, 126, 139-24. 36.36, 126 

31 BRTR60. 24. 255, 153,24,36,66,231 

32 DATR206-203-48.120.148, 10,4.0,0 
;:Hm,v...- -■■ ; ::"■■' ■■:■>■ ■■■■ .,■:', W4 ■ ... 

34 PRINTS' vnyEiCttn.-if, P'lKP 3'i878. 1 5 PRINTCHRI'.5 

■-.r. r.r^jr-'. oc CftVC'.t. JV. fit' '-. I = "lf.H7(-", '-. 'J M "~4&tt 77 



\|\C 



ao 



6. 0,0, 0,3. 3. 3. 127. 127, 255, 48, t 



38 P0KE52.28 P0KE56.23 CLR 51-36876 32-36877 

39 fi=7163 F0RI=RT0R*51I POKE I .PEEK' 1 125680> NEXT 

40 F0RL-8T0273 RERDF POKEft*L,F NEXT 

41 POKE36869,255 

99 REM»« PLRH NIVEflU 1 •• 

100 FOPT-7711T07723 POV.ET.O NEXT 

101 FORT-7816T07826 POXET.e NEXT 

102 FORT-77I0TO7794STEP21 P0*CET,2 NEXT 



163 F0RT=7732Tri77553TEP21 P0KET.1 NEXT 

:■:■; }--/-"-. :--y. ;,-.3^;h;:-.-:; r-:> -:■ . ; >-z- ■ 

105 F0RT=7744T07S67STEP21 ■ PQKET . 2 NEXT 

186 P0KE7723.3 

187 P0KE7737.2 P0KE7755.2 P'JrE7777, 1 : P0KE7735. 1- P0KE771 3. 3 P0KE7758.2 POKE7780. 1 
103 P0KE7773.2 P0KE7381.1 POKE7808.2 P0KE7713.3 P0KE7748,! P0WE7739.2 P0KE7761 . 1 

P0KE7768.2 
189 P0KE7782.1 ■P0>.E77S5.6 P0i'E7786.3 

118 GQSUB4000 

111 REM** PLAN NIVEAU ** 

112 F0RT=7&S7Tn7S?3 FQ^ET.0 NEXT 

1 13 F0RT=7992T08884 POKET. ■ NEXT 

114 F0RT=7836TO79768TEP21 POKET, 2 -NEXT PCKE7949.32 

115 FORT = 7963ror9nSTEP21 POKET . 1 NEXT P0K.E7971,32 

116 F0RT=7S99T079S3STEP2I POKET. 2: NEXT 

117 F0RT=7921TOG8053TEP21 POKET, 1 NEXT 
113 P0KE732^.t; P0r.E?336.e P0KE7890 . 3 P0^E7?12-I P0S.E7975.2 P0KE7976- 1 P0KE7354.2 

119 P0KE7978.2PUKE7958. 1 :P0KE7936,2 POKE7?37*0 P0KE7961.6 P0KE7962.3 P0KE7399. 3 
128 G'JSUB4068 
125 REM** FLHM NIVEAU -1 ** 

127 FORT=6063TO8O75- POKET. O'HEXT 

128 F0RT=816ST08I£8- POKET. 8: NEXT 

129 FORT =8662 T08146STEP21 POKET, 2 NEXT 

130 FORT=3034TO8147STEP21 P0K:ET. 1 ^MEXT 

131 F0RT=8875TrjS159'= TEP21 POKET, 2 : NEXT 

132 FORT=S097TO8181STEP21 POKET. 1 NEXT 

133 POKE8105.I3 POKE8106.Q POKE8107.8 P0KE31 18, P0KE61 1 1 .8 P0KES1 12.8 P0KE3113.3 
P0KE3135,! 

134 P0KES115.e.P0KE8116.B:POK.E8117,3:P0KE8158.2 P0KE80r5.3 OO5UE4006 

135 REM** MISE EN PL.RCE DE L'ASCENSEUR ** 

136 P0KE7743.28-P0KE7313.28 POKE8095.2S «, 

137 REM** MISE EM PLACE DU POMPIER *» n f*v 
140 DP=7362 :M=6 POKEDP.6-GOSUB4800 'U.'—' 

195 GOTO1110 

196 POKEDP-f 38720,1 

197 F0RT=1T026 P0KE51 .240-POKEDP.32 F0RV-1T016 NEXT POKES U 6 POKEDP.M NEXT 
193 REM** DEFLACEMEMT <* 

199 X=PEEK<2B3>-PRIHT"T'TI$ 1FTI»>"080300"THEN50O0 
218 IFX=63THENV=22 2=-22- G0T0296-REM** SUD EST 

211 IFX=39THENV=-22 1=22 G0T031 1 ; REM** N. OUEST 

212 IFX=33THENV=-1,2=1G0T032PREM*« OUEST 

213 IFXs34THENV=l Z=-l G0T0331 REM** EST 

214 IFX=47THENV=-21 2=21 G0T0341 PEN** NORD 

215 IFX=55THENV=21-Z=-21 G0T0351 REM** SUD 

216 IFX=8THEHP0KE36379,23S COSIJB4000 

217 IFX=1THENP0I E36879.46GGSUB4668 

2M IPFEcr"LiP.,-j'JRPEEK'.DFJ = 10RPEEK'DP J =20PPEE! 'DP. = 3THEfUiR--I'P'Z POl EDP M 

252 IFFEEK'DP .=23THEII799 REM** ENTPE DAM3 L ASCENCEUP ** 

253 IFPEEK'.DP,=^9iHEN810PEM«* REIICOMTPE AVEC POK'l VIDEUP ♦» 

254 IFPEEl.'.DPJ=38THEM32e REM** RENCONTRE AVEC ROBOT lELEFOPTEUP ♦♦ 
IFPEEK'.DP^J1IHEN358 REM** JLE'^iE TROUVE *♦ 

iF[,p=r^.lr--.f,NDLA,OTHEMLW = LW+LA LA = 6 C-0Tn = '57 PEM + * FETu'JP H L Arli.i il.Anr.f; .. 
IFDP = r^4(-:ANDLir-WHENrOIEDP.32 IiR=7962 M=6 POSEDP.tl |-.iJtUP'f»?0 G0TO197 
IFLW=6THEN3610 REM** TOUS LES tLEi'^E3 iONI DAN3 L AMBULANCE ** 
RETURN 




255 
256 
257 
25? 
260 
236 
297 
298 
299 



IFM..9rHENM-6 

H=t1+I 

IFM=3THENP0) EDP, 32 11=4 DP=DP*V 

G03UB256 
300 POKEDP.M 
367 G0T0139 

311 IFM59THENM=6 

312 M=M-1 

313 IFM-4THENP0KEDP.32 M=9 DP=DP+V 

314 G0SUB258 

315 POKEDP.M 
317 G0T0199 

321 IFt1<160PM>2lTHENM*18 

322 M=M+1 

323 IFM=21THENPUKEDP.32 M=16 DP=DP*V 

324 G0SUB256 

325 POKEDP.M 
327 G0T0I99 

331 lFrK180PM>15THENM=12 

332 M*M+! 

333 IFM=15THENP0KEDP. 32 M- 10 EP=DP+V 

334 G03UB256 

335 POKEDP.M 
337 G0T0199 

341 IFM<220PM327THENM=24 

342 M"M+1 

343 IFM=27THENP0KEDP,32 M=22 DP"DP+V 

344 GOSUB250 

345 POKEDP.M 
347 00T0199 

351 IFMC220RM>27THENM-24 

352 M=M-1 

353 IFM»22THENP0KEDP, 32 M»2? DP«DP*V 

354 OOSUB250 

355 POKEDP.M 
357 G0T0199 

793 OO3UB4088 P0KEDP.28 

800 GETR« REM** CHOIX DU NIVEAU ♦* 

801 IFm*»"1' , THEHDP-7742 G0TO886 
682 IFR*-' , 0' , THENDP-7910 0010806 
803 IFflt-"-' , THENDP-B894OOTOa03 



864 OOTO800 

^65 C"J3UB4000 

306 G0SUB253 

80S POKEBP.M G0T0197 

818 P0KES2,288 F0RT-1TO288 NEXT POKES2.0 FORT-24OTO180STEP-1 P0KE81J WX1 

811 P0KES1.6 POKES2.200 FORT-1TO200 NEXT P0KES2.8 Cl-29^ J-2 POKEDP. 32 C3-2 

812 IFDP<:7312THENP1*7733 G0T01117 

813 lFDP>8832THENPt=8035 G0T01U7 

814 1FDP>7878RNDDP-:8032THENP1=7?09 G0TG1 117 

820 0=7989 01-8083 02*7733 '=1 01-30 DOT08I2C3-2 
622 GOIUKIOOCI F0kEDP.32 P=INT'RND' 1 '*?> C3-2 
324 IFP=8THEMP1=0 GOT02999 
826 IFP=1THEHP1=01 GOT02993 
B28 1FP=2THENP1=02-GOT02999 

■ ,::,.., mi.,; -, :,)]!•,, t,( ■ i ) ■ h! ! .■ I . ' ! 1 !■ .' ■■ ■ ■'■ I ! I' l"M Ml :. 1 
351 POKES!, FORI = 1TO100 NEXT P0KES1 . 180 FORT M lu.-'Oo NEXT P'iKESl.fl 
852 FORT=1TO108 NEXT POKEB1.218'FORT-ITO30O NtXI M.ivLSl.O (1-6 
833 POKEDP.M P0KE?944, 33 P0KE7943. 34 POKEDP.M LA-LR*1 OOSU84000 001019b 
1000 GOT0199 

L09S PEN** MISE EN PLACE I'ES ROBOTS •» „«-«- 

lipo IFPEEK(PI.' = 32IHENPOKEPI*30720.C3 C3-2 POKEPI-Cl OOTO2007 
1101 G0T0112C 
1 102 RETURN 

1118 Pl-7733 Cl"29 C3»2 
1117 N-INT(RNDC1>*4J*1 FOKEDP*30728, I 
1126 FORT-1TO90 NEXT ONNDU I U-.'068. 2002. ^684. 2606 
2000 Fl-PltINT<RND(l)*12) OOTOM60 
2002 PI-PI +21 + IHT<BND< ])• 12 J -00101100 
2604 PI»PI«42*IHT(RND(I >• 1 ?. ' OOTOI 100 
2006 P[=PI*t.3*lNT'fiNrKI>*!2) G0T01 108 
£0Q? IFJ-2THENJ-0 DP-7^62 POKEDP.M OOIO20I7 
2808 IFJ=1IHENJ»0 GOT0822 
,0"' LI -Gi6(lNDBl = l, IHENLh-8 00T0197 
2610 IFB1-12RMDGC6THEN2021 

2011 Pl»Pl*176 

2012 B1-B1*1 IFBI-12TNEN2021 . „ 

2013 B-B*i IFB-4THEMB-0COTO2013 SUIW pogv 11 



SOLITAIRE 



DEPLACEMENT CODIFICATION 



"^ "~ ~ ^ l ^~™ — — -■ Les chilfres figurant sur la grille correspondent a la roul 

Ce programme, un classique solitaire, nous a semble ^pour"! fThIf^f , s« » «n ,an 

m.eressan. en ce qui concerne la gestion des pieces. P0UR LE CHIFFRE 1 f^^^eVde^ep.lSmen, 

La methodeutiliseepeutetreappliqueead'autresjeuxou *** pour le Chiffre 2 Sp concerne - 500 a 590 

if y a prise de piece. 1 possibility de deplacemeni. 

n. , /.cctiu *** POUR LE CHIFFRE 3" Sp concerne -600 a 700 

Patrick Labb I IN 4 possibility de deplacemeni. 



Ces donnees soni regroupeessous lorme de DATAdf* i» lione l 690 
a la ligne 1 740 

GRILLE CODIFICATION 

La codification de la grille s'elfectue comme telle 

La variable CS?o (Kj sera egaie a — i si la case est occupee. a 1 si 

celle-ci est vide. 

K etant le numero de la case concernee. 

On peut done interpreter les lignes 1 380, 1 390. 1 dOOcommesuit : 

CS% (BUT) — —1 lacased'arnvee. milialement vide, seraa lafm 

du coup occupee. 
CS°b (IN) =i la case intermediate sera videe. 

CS% (Cl%) = 1 :de meme pour la case de depart. 




LOMEK: 25856 

HOME j 

CLEAR : 

Dirt CSX(999),I0V.<99?i 

gosub mo 

RESTORE : 

FDR T « 1 TO 269: 

READ A: 
NEXT 
FOR T = 1 TO 33 

READ IDXlT) 

LET CSX( Ti - - i 
N£>T T 
GOSUB 710: 
S0SUS 930 
VTAB 27 

INPUT "NO DU PION A ENLEVEft l*|fl 
LET CSX(A) = 1 
GOSUB 950 
HOME : 
VTfiB 22 

INPUT -HO DE LA CASE DE DEPART . "tCIX 
PRINT 

INPUT "NO DE LA CASE D'ARRIVEE j"|Ott 
IF CSX(CIX) * i THEN 

PRINT "ERREUR.CASE DE DEPART VIDE. RECOMMENCE*": 

PRINT i 



290 GOSUB I 



320, 5< 



.-■■-' 



: CIX » 1 THEN 
LET All) * 3 
LET BU> ' 2: 
LET AI2J = 9: 
LET B<2> *• 4; 
SOSUB 1310 

: CIX = 4 THEN 
LEI All) = 6 
LET BID ■ 
LET A(2) = 
LET 812) - 9: 



IF CIX = 7 THEN 



LET B<2) - : 
GOSUB 1310 

IF CIX ■ 3 THEN 
LET Ail) - 
LET B II J * : 
LET A (21 = : 
LET B<2! " < 
GOSUfi 1310 

IF CIX - 6 THEN 
LET All! = 
LET BID = I 
LET AI2) - : 
LET 8(2) * I 
GOSUB 1310 

IF CIX • 12 THEN 



LET A(2i = 2t 
LET 8(2) = 1? 
GOSUB 1310 

IF CIX » 13 THEN 
LET Ad 
LET 611) . i; 
LET A(2i * 2: 
LET B(2) = 20: 
GOSUB 1310 

IF CIX = 21 THEN 




510 




CIX ■ 2 THE 
LET A(II 
LET BO) 
GOSUB 1311 


320 


11- 


CIX = 5 THt 
LET All) 
LET BID 
GOSUB 131 


uo 


IF 


CIX « 14 T) 
LET AU) 
LET Bill 
GOSUB 131 


MO 




CIX = 15 T 
LET All) 
LET BID 
GOSUB 131 






CIX - 19 T 

LET AU) 
LET BUI 
GOSUB 131 


560 




CIX • 20 T 
LET AC) 
LET B<1 I 
GOSUB 131 


1/0 


IF 


CIX - 29 T 
LET AOl 
LET BO) 
GOSUB 131 
CIX - 32 TH 
LEI All! 
LET BO) ■ 
GOSUB 1 31' 


590 


RETURN 




LET V ■ 4 


610 


IF 


CIX = 9 TH 



LET 

LET BO) 

LET AI2I - 23] 

LET BI2J - 22: 

GOSUB 1310 
IF CIX - 22 THEN 
LET AID - B: 

LET BO) - IS. 

LET A(2» - 24; 

LET 6(2) = 23. 

GOSUB 1310 
IF CIX • 28 THEN 



620 IF CIX ■ 



LET 8 

GOSUB 

IF CIX - 



LET ( 



' I6i 



LEI 6(2) - 32. 
GOSUB 1310 

IF CIX - 33 THEN 
LET AOJ . 25 
LET BO) • 30l 
LET A<2) - Hi 
LET B(2> - 32. 
GOSUB 1310 

IF CIX • 30 THEN 

I ■ 18; 



LET P 
LET B< 



LET 8(2) ■ 29. 

SOSUB 1310 

CIX • 26 IHEN 



LET B 

GOSUB 

660 IF CIX 



670 IF CIX = 23 Then 



1430 LET TX = 



680 


IF CIX ■ 24 THEN 




LET AOl = |0l 




LET BO) ' 17: 




LEI fi<21 ■ 32: 




LET 6(2) = 29: 




LET A<3> - 22: 




LET 813) ■ 23t 




LEI A<4> - 26; 








GOSUB 1310 


690 


IF CIX =■ 25 THEN 




LET AOl = 111 




LET BO) . 16: 




LET AI2I = 33: 




LET B(2) - 30i 




LET A<3I ■ 23: 




LET B(3> - 24: 




LET AI4> > 27: 




LET B(4) = 26: 




GOSUB 1310 


700 


RETURN 


710 


HGR 


720 


HCOL0R« 3 


730 


SCALE- It 




ROT= 


740 


HPLOT 53,45 TO 93,5 10 163,5 10 203,45 T 




115 TO 163,155 TO 93,155 TO 53,115 TO 53 


750 


RESTORE : 




FOR I ■ 1 TO 156: 




READ A: 




NEXT T 


760 


FDR T = I TO 7 


770 


READ AYX 


760 


READ NBSX 


790 


FOR V - 1 TO NBSX 




READ AXX 


810 


READ FIX 


820 


READ F2X 


830 


LET IRX = AYX 




IF FIX ■ 2 THEN 




LET AYX - AYX * I 


850 


IF FIX ■ 3 THEN 




LET AYX = AYX - 1 


860 


DRAW FIX AI AXX - 3, AYX 


870 


LET AYX = TRX 


980 


IF F2X = 2 THEN 




LET AYX = AYX * 1 


890 


IF F2X « 3 THEN 




let ayx = ayx - i 


900 


DRAW F2X AT AXX * 2.AYX 


910 


LET AYX ■ I« 


920 




930 


NEXT T 


940 


RETURN 


950 


RESTORE : 




FOP T = 1 TO 109: 




READ Ai 




NEXT 


960 


LET LECTX - 1 




FOR T - I TO 7 


980 


READ AYX 


990 


READ NBX 


1000 


FOR V . 1 TO NBX 


1010 


READ AXX 


1020 


LET FO =■ ICSX(LECTX) ■= - 1) 




tilt (CSX(LECrX) < > - 11 • 


1030 


HCOLDR- 


1040 


DRAM 13 AT AXX, AYX 


1050 


HCOLDR- 3 


1060 


DRAW FO AT AXX, AYX 


1070 


LET LECTX ■ LECTX * 1 


1080 


NEXT V 


1090 


NEXT T 


1110 


RESTORE 


1120 


FOR I - 1 10 33 


1130 


READ C 


1140 


FOR V - 1 TO C 


1150 


READ D(V) 


1160 


NE1T V 


1170 


IF CSX IT) - 1 THEN 




1220 


lieo 


FOR V - 1 TO C 


1200 


IF CSX(D(V)1 ( > 1 THEN 




RETURN 


1210 


NEXT V 


1220 


NEXT T 


1230 


FOR T • 1 TO 33 


1240 


IF CSXO) • - I THEN 




LET I = I * 1 




NEXT T 


1260 


GOSUB 930 


1270 


VTAB 22: 



1310 


HOME I 




VTAB 22. 




FOR I • 1 TO V 


1320 


IF CAX • AIT) THEN 




LET BUI = AITli 




LEI IN ■ BIT). 




GOTO 1330 


l'",n 


NEXT 


1540 


PRINT "COUPS IMPOSSIBLE 1 




RETURN 


1 Jflfl 


HOME I 




VIM 23 


1360 


ii esxieun - - i then 




PRINT -CASE D'AWtlVEi OCCUPEE 




RETURN 


i :■ ra 


n as un] • i men 




PRINT "COUP IHPOS 1 




m njRN 


: ■ ■ 


iTi - - I 


1390 


■ | 111 INI - 1 


MOO 


LEI 1 IZ1CIXI ■ 1 


1410 


1,1. rum 


i»:o 


ffl [TORI i 




FOR I • 1 i, 



for i ■ i to roa 

READ AX 

POKE TX.AX 

LET IX * TX • 1 
NEXT 

POKE 233,0 
POKE 133,97 
RETURN 

DATA 2,2,4,1.5,2.2.6 
DATA 2,5,9,1,10,2,5,11 
DATA 2. 8,14,2,9,15, 4. 4, 8, 10, 16,- 
6, 10, 12, IB, 2, 11, IV. 2. 12, 20, 1.15, 

',19,25 



1330 DATA 



■ 1*. 
,18,24, 



1 , 24, : 
DATA 20,3 
DATA 40,3 



(,2,13,23,4, 16,22, 24,28.4, 17,23 
i, 30, 2, 19.25.2,20,26,2,23,29, 
*" "1,1,29,7,30,32 



I OS, 128, 14 



,128.146 

DATA 60,7,68,BB,K'8, 123,146. 168, 
DATA 60,7,68,88,108.123,149.166. 
DATA 100,7.68,88,103,128,148,168 
DATA 120,3,108,129.148 
DATA 140,3,108,128,148 
DATA 10,3,108,10,1,128,10,2,1' 




1670 
1680 
1690 

1700 
1710 

1720 
1730 



1770 
1790 
1790 



1830 
1040 
1830 



DATA 50. 7, 66. 10, 7, BB, 10,6,108.10,9,128,1,10,148.1,1,168,1,2.188,1,3 

DATA 70,7,68,1,4.88,1,5,108,1.6,128.1,7.149,1,8,168,1,9,188,2,10 

DATA 90.7.68,2. 1,88,2,2, 108. 2, 3, 128,2.4,148,2.5, 168,2,6.189,2. 7 

DATA 1 10. 3. 10a. 2, 9, 123, 2, 9. 148, 3, 10 

DATA 130, 3,106, 3,1.128, 3,2, 148,3,3 

DATA 1,2,1,1,2,1 

DATA 1,1,3,3,3,1.1 

DATA 2.2,3,3,3,2,2 

DATA 1,1.3,3,3,1, 1 

DATA 1,2,1 

DATA 1,2.1 

DATA 13,0,28,0,34,0.45.0,54,0,63,0,72,0,61.0,89.0, 

98,0, 105,0, 1 14,0, 138,0, 135,0 

DATA 3,32,49,54,54,5,0 

DATA 24,40,53,62,55.34,45,4.0 

DATA 192,40.53,54,54,63,196,8,45,0 

DATA 65,24,23,23,54.117,36,4,0 

DATA 8,56,55.46,53.54,63,4,0 

DATA 6,56,55,54,54,45,36,63,0 

DATA 24,40,53,30,30,54,5,0 

DATA 39,44,53,54,54,63,36,36,0 

DATA 39,44,53,54,34,63,0 

DATA 35,44,33,54,54,63,36,4,0 

DATA 51,14,45,32,28,255,187, 118,21,14,21,45,40,40,40, 32, 28, 28, 28, 28, 191, 23, 7.0 

DATA 24,41,21,63,191,45,45,53.63,63.119,45,245,63,0 

DATA 24.24,24,24,24,24 

DATA 54,34.54,54,46,36,36,36,36,44 

DATA 54,54,54,54.46,36,36,36,36,44 

DATA 54,54,54,54,46,36,36,36,36,44 

DATA 54,34,34,54,46,36,36,36,36,44 

DATA 34,54,34,54,46,36,36,36,36,44,0 



2010 
2020 
2030 

2030 
2060 
2070 

2080 
2090 
2100 
2110 



PRINT - 
PRINT : 
PRINT . 
PRINT i 
PRINT i 
PfiiNT : 
PRINT : 
PfiiNT 
HTAB 3 
FLASH 
PRINT "ti 
PRINT I 
PRINT i 
PRINT : 
PRINT 
HTAB 3 



" SOLITAIRE" 



ilIENTEJ UN MOMENT i 



• INITIALISATION ■>• 



O - POUR LES REGLES-" 



2200 

2210 



2240 

2230 
2260 



HINT " 
GOSUB 1420 
NORHAL 
HOME 

PRINT " ■••SQL 

VTAB IB: 
FLASH 

PRINT ■•••APPUYE* SUR 
NORML 

LET A = PEEK (491521 
LET A* - CHR» (A) 
IF A* - "0" THEN 
GOSUB 2160. 

HOME i 

RETURN 

IF A = 32 THEN 

HOME .■ 



POKE 49168,0 

GOTO 2100 

HONE 

PfiiNT ■ '"SOLITAIRE"' 

PRINT -'"BUT DU JEU: 

PfiiNT : 

PRINT "VOUS DISPOSE! DE 33 PIONS, IL 

OSSIBLE A L'ECRAN. " 

PfiiNT I 

PRINT "•'•COMMENT JOUER. 

PRINT i 




SUR ESPACE POUR COMMENCER 



i'AGIT OLTALA FIN DE LA FAROE IL EN RESTE LE nOINSP 



-INI 



'R1NT I 



CH0IS1R 



fir.;;, i 



.'ELI- 



PRINT •■•••V01CI UN EXEMPLE DE COUP JDUABLEi" 

PRINT i 

PRINT " 12 3" 

PRINI " • • -^POSITION INiriALE." 

PRINT " • • *>1 VA EN 3." 

PRINT " • ->2 PEUT EIRE EL1MINER." 

GET A«l 

RETURN 



SOLUTION DE L'HIPPOREBUS : 



10 FOR I - I 111 in 

20 READ X 

JO PRINT CHR» (X): 

40 NEXT I 

50 END 

60 DATA AS.B S,S9, B,6 1,82,79 
78,69 




EDITEUR DE TEXTE 



Ce programme fonctionne sur GOUPIL It, configuration 16/64. 
equipe d'un lecteur de disquette et d'une imprimante. 
C'est un traitement de texte, simple, mais efficace. 
II gere entierement le curseur sur une page definie par 
15 lignes et 64 colonnes. 

Thierry GOUILLOU 

It est tacilement adaptable a d'autres ordinateurs. en sachant que : 



CHRS (7) 


emet un Bip 


CHRS (8) 


curseur vers la gauche 


CHRS (10) 


descend le curseur 


CHRS (11) 


monte le curseur 


CHRS (12) 


efface I'ecran (CLS. HOME....) 


CHRS (13) 


curseur a gauche de la ligne 


CHRS (29) 


curseur vers la droite 


CHRS (30) 


imprime en caracieres normaux 


CHRS (159) 


correspond a un rectangle 





ASCII louche BREAK' 


32 


ASCII louche ESPACE' 


245 


ASCII touche EXECUTEUR' 


247 


ASCII touche EFF 


248 


A droite de 'INS' 


249 


A droite de 'EFF 



© 



D OPtt- 




Ces codes correspondent au clavier du GOUPIL. 
La ligne 1810 permet d'entrer un caractere sans arreter le programme. 
PORT 1 permet rulilisationdel'imprimante, PORT Ol'affichage sur ecran. 
ERR et ERL contient le numero et la ligne en cas d'erreur, 

80 AZ*-" •" 

90 ON ERROR GOTO 1410 

10O DIM A»(43>.B*!10.6S) ,FX(!5,20) ,W»(9> 

110 REM • •*a*l»ll«» PRESENTATION »••«»»«»• 

120 PRINT CHR»(12) 

130 PRINT TAB(24)!"EDITEUR DE TEXTE" 

140 PRINT:PRINT 

150 PRINT CHR«<159) ; "RESUME DES COMMANDES" 

160 PRINT CHR*(139),"B:B18LIOTHEDUE" 

170 PRINT CHR*(139),"S:P0UR SDRTIR" 

180 PRINT:PRINT:PRINT AZ* 

190 GOTO 1210 

200 REM •«»*«*•*• RESUME DES COMMANDES MNHM 

210 PRINT CHR*(12> 

220 PRINT TAB (14) J "R ESUME DES COMMANDES" 

230 PRINT TABU 1 > ( " (SEULES LES PREMIERES LETTRES SONT A TAPER)" 

240 PRINT -A L'INTERIEUR DE L" ED I TEUR" ; TAB<38> ; "A L'EXTERIEUR DE L'EDITEUR" 

2S0 PRINT - BREAK:50RT DE L'EDl TEUR" : TABI391 ! "A: APPELLE UN FICHIER" 

260 PRINT " EXECUTEUR: PASSE A UNE NOUVELLE PAGE" t TAB (39) ; *'E: ENREGISTRE UN 

FICHIER" 

270 PRINT " EFF:EFFACE LA PAGE" ! TAB (39) I "V: POUR REVOIR LE FICHIER" 

280 PRINT " A DROITE DE INS: INSERE UN BLANC"; TAB 139) ; "C:CORRIGE UN FICHIER" 

290 PRINT " A DROITE DE EFF:DELETE UN CARACTERE" I TAB (39) " I : SORT SUR 

IMPRIMANTE" 

3O0 PRINT TAB(38) !"T:VA A L'EDITEUR" 

310 PRINT "DEPLACEMENT DU CURSEUR" ! TAB (39) 1 "D: DELETE UN FICHIER" 

320 PRINT " -FLECHE VERS LE HAUT" t TAB(39) J "B: B1BL IOTHEOUE" 

330 PRINT " -FLECHE VERS LE BAS" I TAB (39) i "S: PDUR SORTIR" 

340 PRINT " -FLECHE VERS LA GAUCHE" 

330 F-RINT " -FLECHE VERS LA DROITE" 

340 PRINT AZ»I 

370 GOTO 1210 

380 REM .*.--.»«# EDITEUR DE TEXTE ••••••••• 

390 LX- 1 : MX- 1 : NX- 1 : K-Oi LLX- 1 ; GOSUB 1 600 

400 PRINT CHR«(12)I 

4IO A»(NX>-INCH*(0):A=ASC<A«(NX>) 

420 IF A-O AND LLXOLX THEN LX-LLX: MX-K: GOTO 210 

4SO IF A-0 AND LLX-LX THEN M7.-K:GOT0 210 

440 IFA A-13 AND M7.<15 THEN NX-1 : MX-MX-1 : PRINT CHR» ( 10) I CHR« U3) J : GOSUB 

2040:PRINT CHR*18):GOTO ( 




Q> 

Q> 






Q 



450 
460 
470 
480 
490 
SOO 
SIO 
520 



-13 AND HX-15 THEN PRINT CHR« ( 
A-0 AND NX-1 THEN PRINT CHR*17) 
A=8 AND NX>1 THEN PRINT CHR»(B) 
A-29 AND NX>-64 THEN PRINT CHR« 



) j :GOTO 610 
iGOTO 610 
iNX-NX-l:G0TO 610 
7) ;:GOT0 610 

•lsGOTO 61 



1-29 AND N7.<64 THEN PRINT CHR* (29) I : NX-h 

l-ll AND MX-1 THEN PRINT CHR» ( 7) ; : GOTO 610 

1=11 AND MX>! THEN MX-HX-1 : PRINT CHR* ( 1 I ) > : GOTO 610 

t-10 AND M7.-15 THEN PRINT CHR» (7) 1 : GOTO 610 
3SO IF A-10 AND MX<15 THEN HX-MX* 1 : PR I NT CHR» ( 10) i : GOTO 610 
540 IF A<32 AND A>-123 THEN GOTO 610 

5SO IF A>-32 AND AC123 AND NX>-64 THEN PRINT CHR» 17) I : GOTO 610 
560 IF A>-32 AND A<123 AND NX<64 THEN GOSUB 133O:G0TO 610:REH CODE ASCII 
L - ALPHABET 

570 IF A-245 AND LXO10 THEN MX-I 
1600:PRINT CHR»(12)I : GOTO 610 

S80 IF A-247 THEN MX- 1 :NX-1 : K-O: GOSUB 1600:PRINT CHR» ( 12) : GOTO i 
590 IF A-248 THEN B» (LX.MX) -LEFT* (B» (LX,HX) ,NX-1 ) * 
CHR«(32)*MID*(B*(LX,MX),NX):G05UB 2O4O:G0T0 610 
600 IF A-249 THEN B» (L7..M7.) -LEFT* (B« (LX, MX) , NX-1 > 
♦MID*(B«(LX.MX),NX*1) : GOSUB 2040:G0T0 6)0 
610 IF MX>K THEN K-MX:G0TO 410 
620 GOTO 410 



: : LX-LX+ 1 ; LLX-LLX+ 1 1 MX- 1 : NX- 







NREGI5TF 




IF R»-"0" THEN 


1370 




OPEN NEW R* AS 




660 


IF LX<LLX THEN 
PRINT tll.LX 


LX-LLX 


680 


FDR IX-I TO LX 




690 


FOR A- I TO IS 




700 


IF B»(1X,A)-"" 


THEN B* 


7IO 


PRINT ■1,B*(I% 


A) 


720 


FX(IX.A)-0 






FDR S-l TO 63 




740 


IF LEFT*(B«(IX 


A) ,5)-" 


7S0 


NEXT S 




760 


PRINT »1 ,FX(IX 




770 


NEXT A 
NEXT IX 




790 


CLOSE 1 






GOTO 1570 








820 


IF R»-"0" THEN 




B25 


OPEN OLD R» AS 




830 


FDR I-l TO 10 




B40 


FDR A»l TO 15 




850 


B«(I,A>-"" 




860 


NEXT A 




670 


NEXT I 




890 


INPUT »l,LX 




900 


LLX-LX 






4510 CALL HCHAR<25-D,C»2,TCC 



4440 
4450 
4460 
4470 
4400 
4490 
4500 



CALL CHAR(TCC,"7E7E7EE7E7E7E7E"; 
CALL VCMAR(i,C*2,TCC,24> 
NEXT C 
REM «TRAHT> 
FDR D-l TO 24 
FOR C-l TO 30 
'TE(C) 



'-1 THEN 45? 



. SA*-"SUITE' 
> FOR L-l TO 

< COLL HCHAK 



CALL KEY' 

IF ETO-0 THEN 4580 
|F KE-49 THf 
CALL SOUND l: 
GOTO 43B0 
REM ••MOD IF 



24,L*2.ASC(5EG4(SA«.l 



I 4630 




910 FOR A-l TO LLX 

920 PRINT CHR4(l2)i 

930 FOR IX-I TO 15 

940 INPUT »1„6»(A.IX> 

950 INPUT •l.FX(A.IX) 

96-i FOR D"0 TO FX(A. 1X>:B»IA. I X) -CHR» < 32) »B* (A. IX):NE'T D 

970 B»(A. IX)=MtD»tB»<A, IX). Z> 

9BO REM »■■-■•■»• AFF1CHAGE DES F1CHIERS *•••••■•<• 

990 D-LEN(B»(A. IX))! IF D>63 THEN B*< A. IX) -LEFT* (M (A. IX) ,43) 

1000 IF B»<A. IX)=CHR»U39) THEN B» (A. IX) •.'•-; PRIM : GOTO 1030 

101O IF B«(A, IX)-"" THEN PRINT : GOTO I0IO 

1O20 PRINT BKA. IX) 

1030 NEXT IX 

1040 IF LLX-A THEN GOTO 1090 

1050 D*=" APPUVER SUR UNE TOUCHE" 

1060 GOSUB 1800 

1070 PRINT CHR*(12) 

1O80 NEXT A 

1090 PRINT AZ» 

1100 GOTO [210 

1110 REM ■«■■«••■• SORTIE SUP IMPRIMANTE «««••»■•• 

1120 PORT liPRINT CHR*(30I 

1130 FOR A=l TO LLX 

I 140 FOR IX-1 TO 15 

1150 IF B»(A, IX)-"" THEN PRINT ELSE PRINT TAB (9) : &• (A. IX) 

1160 NEXT IX 

1170 NEXT A 

1180 PORT 

1 190 GOTO 1370 

1200 REM •.!»-.•««■ REPDNSE A LA PRESENTATION ••(••«■■• 

1210 T*-INCH»(0) 

1220 ON ERROR GOTO 1410 

1230 IF T*-"g" OR T»»"S" THEN PRINT "AU REVOIR. .."! :END 

1240 IF T»-"b" OR T»-"B" THEN PRINT "BIBLIOTHEDUE- I :FOR I-l TD 100:NEXT 

I:PRINT CHR»(12) i:EXEC,"CAT . DAT" : PRINT:PRINT AZ«;:GOT0 1210 

1250 IF T»-"a" OR T«="A" THEN PRINT "APPEL DE "i:GOSUB 1 630: R«-Y»: GOTO 820 

1260 IF T«°"e" DR T«-"E" THEN PRINT "ENREG] STREMENT DE "l:GOSUB 

1630:R*=Y*:G0TD 640 

1270 IF T»="i" OR T»-"I- THEN PRINT "SORTIE SUR IMPRIMANTE"! : FOR I-l TO 

5O0:NEXT I : GOTO 1120 

1280 IF T»="d" OR T*="D" THEN PRINT "EFFACEMENT DE "i:GOSUB [630iR»=V*: IF 

R»-"0" THEN 1570 ELSE RR»-R**" . DAT" : KILL RR4:GOTO 1570 

1290 IF T«="r" OR T*="R" THEN PRINT "RESUME DES COMMANDES": : FDR I-l TO 

J/Xi:NEXT I:GOTO 210 

1300 IF T*="t" OR T»-"T" THEN 0-0:PRINT "EDITEUR DE TEXTE"! : FOR I-] TO 10:F0R 

A-l TO 15:B»(I,A)-"":NEXT A:N£XT !:GOTO 390 

1310 IF T»-"v" OR T»-"V" THEN PRINT "VUE DE F ICHIER" I :FOR I-l TO 250:NEX1 

I:PRINT CHR«(12)i : FOR A-l TO LLX:FOR IX-1 TD 15:GDT0 990 

1320 IF T»-"c" OR T»-"C" THEN "CORRECTION DE F ICHIER": :FOR I"l TO SOOlNEXT 

I iGOTO 1870 

1330 GOTO 1210 

1340 REM •■■•ll««»« ETUDE DE B»(LX.MX) ■•••«■••• 

13S0 IF A*(NX)-"," THEN A»(NX)-"]" 

1360 B»-<LX,M7.)-LEFT»(B»ILX,HX>,NX-1)*A«(NX)-*M1D*<B»<LX,MX>.NX*1> 

1370 PRINT A«(NX) ! 

1380 NX-NX* 1 

1390 RETURN 

1400 REM IMMHMHH ERREURS ■»«••••«» 

1410 IF ERR-7 THEN V*="DISOUE PLEIN":GOSUB 1520 

1420 IF ERR-3 TEHN V»-"FICHIER EX ISTANT" : GOSUB 1320 

1430 IF ERR-11 THEN V»-"FICHIER OU DISOUETTE PROTEGE": GOSUB 1520 

1440 IF ERR-4 THEN V«-"FICHIER INEX ISTANT" : GOSUB 1S20 

14S0 IF ERR-I2 THEN V*-"FICHIER PROTEGE" : GOSUB 1520 

1460 IF ERR-41 AND ERL-650 THEN CLOSE 1:RESUME 650 

1470 IF ERR-41 ANDE ERL-825 THEN CLOSE 1:RESUME 825 

1480 IF ERR-B THEN FOR GG-IX TO 15: PRINT:NEXT GG:PRINT AZ»:RESUME 1210 

1500 RESUME 1210 

1510 REM »•«*»»•«# AFFICHAGE DES ERREURS •••••■••» 
1520 PRINT CHR*II3)(SPC(63) ICHR»< 13) I AZ*I V*| 

1530 FDR I-l TO lOOO:NEXT I 

1340 PRINT CHR*(13) ISPC(63) JCHR*( 13) I AZ»I 

1550 RETURN 

1560 REM mtmmmtmt EFFACEMENT ■««••#••• 

1370 PRINT CHR*(I3) ;SPC(63) 1CHR»(13) [AZ41 

1580 GOTO 1210 

1590 REM •••••••»• INITIALISATION ••••••••• 

16O0 FOR I-l TO 15iB»(LX,I)-" 

":FX(LX,I)-0:NEXT I i REM B«<LX,I1- 64 CHR»(32) 

1620 REM «■#*■■•*• INPUT SANS 7 •■«■#*••« 
1430 Y*-"-lJ-l 



1650 M-ASC(WXJ) ) 




1660 IF W-13 AND 


-1 THEN 1640 


1670 IF W-13 AND . 


>1 THEN V«=LEFT»(Y»,J-l>lFOR I-l TO YtPRINT CHR* 1 32 


I:FDR I-I TD V:PR 


NT CHR*(BH:NEXT I:RETURN 


16BO IF M-B AND J 


1 THEN GOTO 1640 


1690 IF W»8 AND J 


1 THEN PRINT CHR«(B) t ! J-J-l:GOTO 1640 




123 THEN 1640 ELSE 1710 




-1)*H*(J)*MID«(Y«,J+I) 


1720 V-LEN(Y») : IF 


Y>Q THEN V*-"NOM DE FICHIER TRDP LONG":GOSUB 1320:G( 


1760:GDTO 1630 




1730 PRINT W«(J) t 




1740 J-J+l 




1750 GOTO 1640 






T»-"A" THEN PRINT "APPEL D£"!iRETL«N 




T*-"E" THEN PRINT "ENREG I STREMENT D£-l:RETURN 




T*-"D" THEN PRINT "EFFACEMENT DE "!:RETURN 




CLIGNOTEMENT »#••••»•• 



1BO0 POKE 5B562.0 

1810 POKE 583B7,0iWW-PEEK(58362> 

1820 IF WW>31 THEN RETURN 

1B30 PRINT 0«I 

1840 FOR XX-1 TO 60:NEXT XX 

1B50 PRINT CHR*1I3)!SPC(63)(CMR»!13)1 

1851 GOTO 1810 

I860 REM •##•!••••• CORRIGE D r UN FICHI 

1B70 FDR A-l TO LLX 

18B0 PRINT CHR«(12)I 

1B90 FOR I-l TO 13 

1900 IF B»(A.I)-"" OR Bt(A. I)-CHR»(15 

1910 PRINT B*(A. I) 

1920 NEXT I 

1930 IF A-LLX THEN GOTO 1990 

19*0 D*-" C:POUR C0RR1GER 

19SO GOSUB I BOO 

I960 IF WN-32 THEN 1990 

1970 IF WW-67 OR WW-99 THEN 2OO0 

1980 IF WM<>32 OR WW<>67 THEN 1940 

1990 NEXT A 

2000 K-MXiNX-liMX-llLX-A 

2010 PRINT CHR»(28) I 

2020 GOTO 410 

2030 REM •«•••#••« INSERTION ■••••••«• 

2040 B* t LX, MX ) -LEFT* (B«( LX.MX) .43) 

2050 PRINT CHR«I13)lB»!LX,HX>iCHR»<!3)l 

2060 IF NX-1 AND ( A-248 OR A-249 I THEN RETURN 

2070 FOR NN-1 TD NX-llPRINT CHR» (29)1 :NEXT NN 

2O80 RETURN 



INT :GD70 1920 






TV 



-99 */* 



> CALL CLEAR 

. PRINT "RENIRAGE CADRES-n 
) FOR C-l TO 30 

> CALL HCHAR(?4,C'2,4B*IE(C) I 



470O FOR 1 



4010 

4820 
4030 



FDR A-l TO 4 

IF TP(D,A)-1 THEN 4830 

PRINT I 

OOIO 404 o 



>N8'>"! ,, RENTRAGE-r , l"C0ULKl)RS CHA1NE-7 
I PRINT -PEDALARES AU HASARD-4"! -COULFURS THAME-3"! 



TABLEAUX -4" 



4BB0 CALl 



IF N-0 THEN 4660 
IF N>4 THEN 4660 
ON N GOSUB 1240,16 
GOTO 4320 
REM ••TAHLFAUX" 



>, 7420,3070.3740. 4710 



) PRINT 

) NEXT 

i PRINT "HUITE-1" 

3.KE.ETA) 
IF ETA-O 1HTN 40IH' 
IT »E-49 IHCN 4V30 
CAI L S0UND(IOOO.-4, ! 
GOTO 4RBO 
RETURN 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



COME ON, COMMODORE ! 

Le club 20-64 de Villemomble organise des journees de 
presentation du materiel COMMODORE, VIC 20 et 
COMMODORE 64. Tous les peripheriques et tous les 
logiciels (+ de 900 !) seront la : Irnprimante ploter. table 
digitale. table tracante, produits francais et etrangers. 
Des demonstrations de langage machine, de FORTH et 
de base de donnees. Et meme 6 ordinateurs relies a une 
seuledisquette ! Tous les journauxd'informatique seront 
la et meme la tele. L'evenement pour les possesseurs de 
Commodore! Ecole FOCH, 73. rue Bernard-GANTE a 
Villemomble 93250, les 21 et 22 Janvier. 

A LA BASTILLE! 

Du 24 au 28 Janvier, les Etats generaux de la micro- 
informatiquese tiennent a la Bastille. Des materiels, des 
logiciels. des debats et des conferences. 300exposants 
sur6 500 metres carres. 11 vousfaudradebourser25 francs 
pour penetrer dans ce temple, a moins que vous ne nous 
ecrivrez tresvite : I'organisateur EG Ml nous a don ne cent 
entrees gratuites, rien que pour vous ! 

MICROTEL ADEMIR tremblait, 
BASIC et LOGO fichaient. 

Des stages desensibilisat ion au basic les 28/29 Janvier et. 
3/4 mars et au logo les 3 et 4 mars. Et un week-end 



delude sur les fichiers. pour les inities, les 17 et 18 mars. 
C'est MICROTEL ADEMIR a TREMBLAY-LES-GONESSE 
qui organise, renseignements au 860.60.78. 

JCS 

Un tout nouveau point de vente de 150 m ? au 49 rue des 
Mathurins. Paris 8". Avec des BBC. APPLE. VICTOR et 
autres CANON. Du materiel ■ PRO ». des peripheriques. 
des logiciels. des systemes educatifs et des loisirs. 

SPECTRUM PEDAGOGUE? 

Enfin de bons logiciels pedagogiques pour SPECTRUM 

par VIFI-NATHAN. Vos enfants de 4 a 8 ans vont pouvoir 

s'initier au calcul tout en s'amusant avec CROQUE 

NOMBRES, DES EN CHUTE LIBRE ou COMBIEN 

FONT ? Et vous pouvez meme mettre votre petit dernier 

de deux ans devant « LA COURSE DU ROBOT », il vous cul d'integration et de racines de polynomes. Tres beau. 

battra surement tres vite et connaitra encore plus vite fe pas cher (95 F), en vente partout (ou presque !). 

calcul elementaire. 




BAOUMNN ! CANON ! 

Un bouquin dejeux et programmes pour CANON X-07 : du 
jeu de flechettes en passant par le tresor du galion au cal- 



SHARPvoit DOUBLE. 

II faudra attendre avril, mais il fera de votre SHARP MZ 
720 un super ordinateur: un double floppy-disk 5 pouces 
1/4, double face, double densite avec son systeme d'ex- 
ploration FDOS BASIC SHARP. Plus que deux mois de 
patience ! 



IJES ETATS -GENERAUX 



24-28 jjnvier 1984 

PARIS 




LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX ! 



JEUXet PROGRAMMES 

pour 

I'ordinateur familial 

TEXAS INSTRUMENT 




programmes en Ti basic pour "Ti 99/lA" 



INITIATION AU 

LANGAGE ASSEMBLEUR du 

TEXAS INSTRUMENTS 

T.99 4/A 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Des jeux originaux et passion- 
nants avec couleurs,graphismesetsons:Jeuxdemouvement (Bowling, Bataille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari, Tour de 
Hanoi, Arch itecte, etc.). Jeux desociete (421, Goldie.Cochon, Mastermyster.Chif- 
fres et mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque, etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR, Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Letome2esttoujoursen basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plusnombreux: Backgammon, Sous-marin.Trappe, 
Roulette, Casse-tete, Puzzle, Echecs, Tachitoscope, Kim, Paires. etc... De la musi- 
que a inclure dans vos programmes : Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs :Arithmetique, Calcul de 
puissance, Regions de France. entraTnement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basicetendu.il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.), des jeux de societe (Theme astral, Drapeaux, Poker, Harmonium, 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pour creer des lutins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs frangais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire" ? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct a la memoirecentrale. Grande vitesse d'execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables, a maftri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 21 4 pages. Format 21 x 28. 1 95,00 francs 
frangais. Disponible en francais et en anglais. 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




Programmes en Ti BASIC pour Ti 994A 



JEUX et PROGRAMMES 


pour I'ordinateur familial 
TEXAS INSTRUMENTS 




Tome 3 


m 




I W\;\:,\ 

Iflfrii 




y -M 


jUjjjf^Bsl 




PROGRAMMES en BASIC ETENOU TI 99/4A 



DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES. SHIFT EDITIONS, 27 rue du Gal Foy, 75008 PARIS 



NOT/P.Snom I II I I I I I I I I I I I I I I I I I I I 

Ad,„„ Ml I I I I I I 

I I i I i I i I i M I i I c „,., pom I I I I I I 

vim I I I I I I I I I I I I I I I 



TOME 1 C 155 F 
TOME 2 a 155 F 



TOME 3 D 155 F 

ASSEMBLEUR U 195 F 



CONTRE REMBOURSEMENT FRANCE + 20 F D 

CONTRE REMBOURSEMENT ETRANGER + 30 F □ 



REGLEMENT JOINT... 
cheque HI ccp □ 



4&aF 



DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rlen de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisers 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage. HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGIN AUX et FRANCAIS. SI 
voire programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suff it de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a ['utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement: 

ART. 1 ; HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature. 

ART. 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'originalite les logi- 
ciels qui sont publies dans le 
journal. 

ART. 4 ; Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Paris. 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entralne I'acceptation par 
les concurrent du present re- 
glement. 

HEBDOGICIEL: 27, rue du Gal 

FOY - 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordjnateur. 

Ainsi, pas de favorittsme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Norn : 

Prenom : 
Age : 

Adresse : 

n° telephone : 

Nom du programme : 

Norn du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation m 
une copie d'un programme existant. Ce programme reste ma pro- 
pnete et j'autorise HEBDOGICIEL a le publier. La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au prora'ade la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doit etre expedte sur support magnetique (cassette 
ou disquette) accompagne d'un Descriptif Detaille du Materiel uti- 
lise, d'une Notice d'Utiltsation du Programme, et d'un emballage 
timbre permettanl la reexpedition du materiel non publie. 



RECOMMANDATIONS AUX LEC- rons ainsi reperer facilement les 
TEURSQUISOUHAITENTFAIRE listings, une foissortis de I'impri- 
PUBLIER UN PROGRAMME : mante. 



• Indiquez sur le support 
magnetique lui-meme votre 
nom, le nom du programme et le 
materiel auquel il est destine. 
Rien n'est plus difficile que d'es* 
sayer de charger un programme 
d Apple sur PC 1500. 

• Notez dans les premieres 
lignes de votre programme, sous 
forme de REM, votre nom, le nom 
du programme et le materiel 
auquef il est destine. Nous pour- 



• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres cour- 
riers doivent egalement etre 
separes car irait.es par d'autres 
services. 

• Joignez, si possible, un listing 
du programme et un organi- 
gramme. 

• Enfin.lefindufin.expliquezles 
particularites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE. 



HACHETTE MICRO INFORMA- 
T1QUE OFFRE UN ALICE AU 
MEILLEUR LOGICIEL DU MOIS. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CES RS. 232. C. 



BOWLING 



Un bowling pour vous tout seul. lereve. non ! En tout cas, 
n'en perdez pas la boule ! 



Stephan BELLEGY 




tfP 



-f« 



SLIST 




430 


NEXT X 


1033 




2340 


PRINT "SUPPLEMENTA1RE EN GU 








440 


COLOR- 0: PLOT X * 1. I 


1037 


HTAB 13 




ISE DE BONUS. " 








460 


IF I - 17 THEN PLOT 3,17:SC 


1040 


PRINT "• BOWLING •" 


2330 


VTAB 22 


io 


HOME : GOSUB 1OO0 






- SC ♦ 10 


1042 


HTAB 13 


2360 


HTA8 34 


17 


CLEAR : HOrlE 






IF I - 18 THEN PLOT 3,18: PLOT 


1044 


PRINT "• #" 


2370 


INVERSE 


20 SC « 




480 


3,17:SC - SC * 20 

IF I - 19 THEN PLOT 3,17: PLOT 

5.18: PLOT 3,19: PLOT 7, 19iS 


1047 
1048 
10SO 


HTAB 13 


2380 
2390 


PRINT "SUITE " 

NORMAL 

GET A« 


30 


GOSUB 3OO0 




POKE 770,32: POKE 771,67: POKt 


33 


FOR M - I TO TAB 






C - SC + 50 






2410 


TEXT 


40 


CALL - 1998 




490 


IF I - 20 THEN PLOT 9,20: PLOT 




774,01 POKE 773,96 


2420 


PRINT "DUAND LA BILLE AURA 


43 


COLOR- 6 






7.19: PLOT 7,21: PLOT 5,18: PLOT 


1035 


PRINT : PRINT : PRINT : PRINT 




UN MOUVEMENT- 


SO 


REM DES5IN DU BOWLING 






5,20: PLOT 5,22: PLOT 3,17: PLOT 




: PRINT t PRINT 


2430 


PRINT 


60 


HLIN 0,39 AT 






3,19: PLOT 3,21: PLOT 3,23tS 


1060 


PRINT "APPUVER SUR UNE TOUC 


2440 


PRINT "VERTICAL, VOUS AUREI 


70 


HLIN 0,39 AT 47 






C - SC * lOO 




HE POOR COMMENCER "l SET A 




TOUT VOTRE TEMPS- 


too 


VLIN 0,47 AT 




500 


IF I - 21 THEN PLOT 7,21: PLOT 




•: VTAB 22: RETURN 


2450 




no 


VLIN 0.47 AT 39 






3,21: PLOT 5,22: PLOT 3,23tS 


2000 


HOME 


2460 


PRINT "POUR TIRERiPOUR CELA 


120 


HLIN 0,33 AT 43 






C - SC * 30 


2010 


REM ••• PRESENTATION ••• 




VOUS DEVREZ APPUVER- 




VLIN 41,42 AT 35: VLIN 


,2 AT 




IF I - 22 THEN PLOT 5,22: PLOT 


2020 


VTAB 4 


2470 


PRINT "SUR LA TOUCHE •FIRE- 










3.23:SC = SC + 20 


2030 


HTAB 16 






ISO 


GOSUB 160: GOTO 240 




320 


IF I - 23 THEN PLOT 3,23:5C 




PRINT "BOWLING- 




PRINT 


160 


REM DESSIN DES DUILLES 






• SC + 10 


2O50 


HTAB 3 


2490 


PRINT "QUANO VOUS AUREZ PRE 


163 


COLOR- 6 




330 


HTAB IO: VTAB 2: PRINT "SCOR 


2060 


VTA8 16 




SSE CETTE TOUCHE, " 


170 


FOR I - 17 TO 23 STEP 2 






El-SC 


2070 


PRINT "VOULEZ-VOUS DES INST 


2300 


PRINT 


ISO 


PLOT 3,1: NEXT I 




340 


HTAB 2: VTAB 2: PRINT "ACT." 




RUCTIONS 7-1 


2310 


PRINT "LA i-.-.i i I TRAVERSERA 


190 


FOR I - IB TO 22 STEP 2 








2OB0 


GET XX* 




L-ECRAN DE DROITE A ■ 


ZOO 


PLOT 3, Il NEXT I 




550 


IF I < > 20 THEN NEXT B 


2090 


IF MID« <XX*,I.1> - "0- THEN 


2320 


PRINT "GAUCHE ET FERA lOMBE 


2(0 


FOR I - 19 TO 21 STEP 2 




360 


IF I - 20 THEN CALL 63338: GOSUB 




2130 




R DES DUILLES" 


220 


PLOT 7. t: NEXT I 






160: GOTO 230 


2100 


IF MID« <XX*,1,1) - "N" THEN 


2330 


PRINT 


230 


PLOT 9,20 




60O 


NEXT W 




RETURN 


2340 


PRINT "SI EVIDEMENT VOUS AV 


233 


RETURN 




620 


REM •»•» FIN DE PARTIE •••» 


2110 


GOTO 2OO0 




EZ BIEN VISE...' 


240 


REM ARRIVEE D€ LA BDULE 








2130 


TEXT 


23SO 


I N VERSE 


Z4I 


MTAB lOl VTAB 2: PRINT 


SCOR 


640 


HOME : HTAB 12: VTAB 8 


2160 


PRINT "CE JEU EST STRUCTURE 


2560 


HTAB 34 




Ei-SC 






PRINT "VOTRE SCORE EST "SC 




EN TABLEAUX COMME " 


2370 


VTAB 23 


242 


MTAfl 2: VTAB 2: PRINT "ACT." 


633 


PRINT 


2170 


PRINT "LA PLUPART DES JEUX 


23BO 


PRINT -SUITE- 




M 




660 


PRINT : HTAB lOi VTAB 12: PRINT 




0- ARCADES." 


2390 


GET A» 


245 


FOR 8 - A TO 2 






-CE OUI FAIT UN TOTAL DE :" 


2180 


PRINT 


2600 


NORMAL 


230 


FOR I - 2 TO 37 




661 


PRINT I PRINT 


2190 


PRINT "CHAOUE TABLEAU EST C 


2610 


REItlRN 


260 


COLOR- O: PLOT I - 1,43: 


COLOR- 


663 


HTAB 6: PRINT "- "iZl" TIRS" 




ONSTITUE PAR " 


■,<>•>.) 


TEXT 




3: PLOT 1.45: NEXT I 




664 


PRINT 


2200 


PRINT 


3010 


VTAB 12 


270 


FOR I - 45 TO 2 STEP - 






MTAB 6: PRINT "- POUR UN POU 


2210 


PRINT "TROIS BOULES. " 


3020 


PRINT "Al ORS.CDMniEN VOULEZ 


280 


COLOR- 0) PLOT 37,1 * tt 


COL OR - 




RCENTAOE DE " l INT (SC / Zll 


2220 


PRINT i 




-VOUS DE TABLEAUX ""li GET I 




3: PLOT 37,1 






" POINTS"! PRINT : PRINT "PA 


2230 


PRINT "AINSI. VOUS DEVEZ COU 




A8 


290 


CALL 770: IF PEEK (0) ■ 

THEN 4O0 


I /4 


660 


R BOULE" 

REM *••• UNE NUUVFLLE FARTIE 


2240 


CHER LES D1X QUILLES" 

PRINT "OUF COMPORTE UN I ACL 


JO30 


RETURN B| 


:■ "i 


NEXT I 






■J •••> 




EAU . " 








CALL 63338 






PRINT i PRINT 


2230 


PRINT 








FOR I - 2 TO 45 






INPUT ■VOUUEZ-VOUfl REJDU&R 7 


2260 


PRINT "HFIJF-EUEiL'MtrNl.DUAND V 






320 


COLOR- fii PLOT 37, I - ll 
■■: PLOT 37, I 


COLOR" 


680 


"IR« 
IF fi» - "O" OR R» - "OUI" N»" 


2270 


oug FEW I rOMBSR " 

PRINT 






' 10 


CALL 770l IF PEE^ (01 - 
THEN 400 


174 




sc » OiZ - Oi oosub IOOOj ooro 

33 


2280 


PRINT "1 A OUII I 1 a MTRAI 1 ,V 

uii'i i i li / rONM '■ ■ 








NEXT I 






rexi : i-nu 


2290 


PRINT 






■I", 


CALL 63330 




1000 


REM PRLSfJNTAUCJN 


2300 


PRINT -'D'UN COUI-. 1 1 B Ml III R 








nolo 270 




ioio 


HOME 




UTRSB It pn PI Ufl " 






«!..,.. 


if • I * li FOR » - 37 TO 


1 STEP 




HTAB 13 


2310 


PRINT 








- I 

COI OR- '): PLOT r • 1,1: 




1023 
1030 


VTAB 10 


2320 


l-RINI "VUll'i iuji.i.,' liROl i r\ U 
NE BOULE " 




















1: PLOI X.I 




1032 


HTAB 13 


2330 


PRINT 







LES DAMES ANGLAISES 



Draughts en Grande-Bretagne. Checkers aux Etals-Unis, 

c'esl un jeu fort ancien qui etait egalement pratique en 

France avant le XVIIle siecle. 

Les dames anglaises se jouent sur un echiquier de 

64 cases. Chaque camp dispose de douze Pions repartis 

comme sur le diagramme n" 1, 

Les finales son t beaucoup plussubtileset complexes que 

dans les dames francaises. Trois pieces gagnent presque 

toujours contre deux. 

Alain LALISSE 



REGLESDU JEU. 

l - La marche du Pion. 

Le Pion se deplace obligaloirement vers I'avant et en diagonale. 

done dans deux directions possibles, pour autant que les cases 

soient libres. 

2 -La prise du Pion. 

Lorsqu'un Pion se trouve devant un Pion adverse et que la case 

suivante de la diagonale est libre, il prend ce Pion en passant 

par-dessus. Apres cette prise, et si la meme situation se presenle a 

nouveau, il continue a prendre les Pions adverses de la meme 

facon. 

3 - La promotion du Pion. 

Quand un Pion a traverse la totalite de 1'echiquier et atteint la 8e 
rangee. il devient une Dame. S"il parvient a cetieSe rangee suite a la 
prise d'un Pion adverse, il laut qu'il n'ait aucune autre piece a 
prendre sinon il reste un Pion. 

4 - La marche de la Dame. 

La Dame avance exactement comme le Pion avec toutefois la pos- 
sibility de se deplacer {d'une case et en diagonale) en arriere. Elle 
prend egalement comme le Pion avec la possibilite d'executer la 
prise vers 1'arriere. 
5- Regies des prises. 

Quand une prise est possible, elle est obligatoire. Toutefois. si la 
prise n'est pas effectuee, I'adversaire a la possibilite de laisser les 
choses en etat. En casde prise multiple, lechoixde la prise est libre. 
quels que soient le nombre et la valeur des pieces en prise. 



• • ~ » ~ • ~ 




1 CLS:P0PER6:[MK4:DL0r2, 12,' 
i R.slat?" 



':&ETA 



2 PL0T2, 14, 

3 PLCT2,16,"*inon u, 
*:IFA*="O">HEN30e8 

4 CLS:PftPER2:INK0:PLOT6, 13, "LE JEU PEUT 

connENCER. 1 -uAirise 

9 CLS: B ftPEffl :!NK0:«IRES:CALL»E6CA;PR]NTC 

HR«[]7):0lnR(4),S(9,9),T<3, 

9) :&=-! :R(0}=-99 

se doioi.b, i .8,0, e,-i, a, a, i, e, 3, a.-i.o, - 

1,15 

120 FORX=0TO7:FORY=0TO7 

'24 READJ :[FJ=15THEN188 

180 SCX,Y) = j:UX,YJ = J :GOTO200 

180 RESTORE :R£ADSCX,Y):TO<,YJ=StX,T J 

280 NEXTr:NEXIX 

210 GOTO400B 

230 FDRX=0TO7:FORY*8TO7 

234 IFS[X,TJ>-]TH£H3S0 

235 IFS(X,T)0-1THEN325 

31 F0Rfl=- 1 T01STEP2 :B=G :GOSU86S0 :N£XTA 

325 IFS[X,Y)0-2THEN3S8 

330 F0RA*-1T015TEP2:F0RB=-1T01STEP2:G0SU 

B650:NEXTB:NEXTA 

350 NEXTY:NEXTX 

354 GOTO) 148 

650 U=XTA:U=r.B:IFU<8CRU>?ORU<0ORU>7THEN 

870 

740 IFS(.U,U1 = BTHENGOSUB9]0:GOTO870 

770 IFS(.U,UK0TH£NGOTO970 

730 U=U*W:U=U*Q:tFU<0ORU)7ORU<0ORU>7THEN 

870 

850 IFSCU,g)-0THENGQSUB910 

878 RETURN 

910 IFU=eftH0S(X,Y)=-lTHEN0=0t2 

920 IFA8S(Y-iJ)=2THENQ=Q«5 

960 JFY=?lHENQ=Q-2 

980 IFU=0ORU*?lKENQ=O-l 

1038 FORC=-1TO!STEP2:IFU>C<80RU'C>70RU*G 

(0THEN10B0 

1035 IFSCU«C,U'GK0TH£NQ=O«I ;GOTO1088 

1840 IFU-C<80RU-C>70RU-G>?TH£N1B88 

1045 IFS(U»C,U.G)>0fiNrJlSIU-C,U-Gj"8OR(U- 

C=X«ND0-G-Y))TH£NQ-0-2 

1088 N£XTC:JFQ>RC0MMEfJRl0)-O:Rln»X:RC2 

)=Y:R[3)=U:Rt4)"U 

1100 O^BiREIURH 

1148 JFR(e)*-99THENI880 

1238 CLS:*AP:PRlnr'J« Jcua dt -Rtl);R(2) 

"« "Rt3);R[4);:R(.e)— 99 

1240 JFRC4]=8THENStRC31,R(4)]*-2:GOT0131 



1333 SC(Rtl)'RC31]^2, IRC2XRC4 ) V2)=8 

1348 X=RC3) :Y=R[4] : IFStX, Y J.- 1 THEHB— 2 :F 

GRA--2T02STEP4 :G0SUB1 370 

1350 IFSCX, n--2THENF0Rfl'-2TO7.STEP4 :FDRB 

=-2TO2STEP4:GOSUB)3?0:NEXTB 

1360 NEXTA:|FRC0)O-99THEN2AP:PRINT-o "R 

t3];Rt43;:Rt0)=-93:GOTO1240 

136S G0T02188 

1378 U=X*A:U=YtB:lFU<eORU>70RU<80RO>7THE 

HI 488 

1388 IFSCU,U) = BAN0SF.X*A'2,Y*8.'2J>eTHENG0 

5UB918 

1400 RETURN 

1552 FORL=0TO7:FORri'8Trj7 

1556 !FS(.L,n) = 10RStL,n] = 2THEN2-l 

1558 lFS(L,n)=-10RSCL,nj=-2THENT-l 

1568 NExrn:NEXTL 

1564 IF2O1THEN1885ELSE1FTO1THENI880ELS 

EZ=0;T=fl 

1580 CALLSE804 

1585 PING:PRINr:PRlNT"c'*»l a uolre lour 

1590 PRINT"UOUS J0UE2 DE LA CASE " ; =GETE 

«:IF£»="S"THEN1890 

1S92 PRINTE*;","; :GETH* :PRINIH« ; :E=UALCE 






X'£:' 



1593 IFSCX, Y)<=0ORE<0ORE>7ORH<0ORH>?THEN 

PRINT" «ri-*ur!":GOTO1580 

1670 PRINT" A "; :GETfl*:PRINTA»;:PRINT"," 

; :GETH«:PRINTB« :^UAL(fl*l :B 

=UALtB*):X=A:Y=S 

1672 IFA<0ORA>7ORB<eORB>7THENPR]NT"arrau 

r r«coi»»i«f>c«T ,- :G0T0159e 

1675 IFSt£,M)=lTHEN1677ELSE1680 

1677 !FB<HTHENJ590 

1680 JFSCX,Y) = 8flN0ABS(A-EK=2AN0ABStn-E; 

'ABSCB-HJTHEN1758ELSEPRINT" 

tfT« U r-:GOTO1590 

1758 Stft,Bl-SCE,H):StE,H)=8:IFft8S{E-flJ<> 

2THENI8I8 

1808 S[(E»fl)/2,(HiB)/5J=9 

1882 PRINT-wdui tun Foil un. p'lit! UOU 
S JOUER AHOUUEitU UERS LA CA 
SE'JtGCMH 

1883 IFfll* = -^ i 'THEN1810ELSEPRINTAl*;", '■ ; : 
GETB1«:PR!NTB1« JAl^UAKAJ*) 
:B1-UALCSI«) 

1805 IFSCA1,BI]O0ORABS!A1-AJO2ORABS[B1 

-8)02THEN1B82 

1886 £=A:H=B:A=A1 :B*8I :&0TO1758 



! I-a=7THENS[fl,B)'=2 

I CAIlB£6CA:GOTQ230 

I PRINT-UOljs ogc? GAG*£' :CALLa£884 :ufi 

t80 :ENO 

> PRINT' J'AIGAGNc'" :CALLBEB34:uAIT]88e 



1899 


TEXT 


END 










2100 


CURSET28.197, 










2118 


FORY 


=0TO? 










2120 


FOR> 


=8T07 










2121 


cuRnou2S,a,0 










2125 


IFT( 


<,Y3«StX, 


JTMEN2240 






2138 


T(X, 


)=StX,YJ 


ONStX 


T)» 


J50SUB338B,3 


180,3483, 


1860,3238 










2248 


NEXT 












2245 


IFT = 


'THEN2260 










2250 




W-208,-2 


>0 








2268 


NEXT 












2278 


GDTC 


552 










3880 


flH»4 


I884'4tx- 


388ir 








3881 


FORI 


'H01B:PQ>(ErtH,7 


*H= 


W»40 


NEXT :f 


OR I 


1T09 


CIRCLEI, 


:n£XT 


RE 







32B8 ftH=48884«4«x-ieee*T 

3281 FORI=lT01B:P0KErtH,7:1M'AHT4e:NEXT 

3289 FOR I = 2T03:CIRCLE1. 1 ;CIRCLEI-1,2:NE 

XT :fi£TURN 

3380 RH=48834-4IX-1008*Y 

3301 FORI = UOlS:OOKE«M,6:OI'-i4H-40:NEXT 

3309 FORI=2T09:CIRCLEI, 1 :C1RCLE 1-1 , 2 ;NEX 

T. -RE TURN 

3488 FCRI=1TO9:C1RCLEI.0:NEXT:RETURN 

=888 PAPERB:!NK3:CURSET239,0, 1 :0RfiU-199, 

0, 1 :DRf*U0, 199, 1 :ORflU199,0, 1 

4801 DRi=tU0, -139,1 

4005 FORI =24T0!39STEP25: CURSE 1239, J.8--DR 

OW- 199, 8,1 :CURSET239-I,8,1 : 

0RrtU8, 199, 1 

4806 NEXT I 

4811 CURSET19,12,B:F0RI-55T048STEP-1 :CHfl 

Rl ,0,1 :IFI=48TMEN4812£LSECU 

RM0U8,25,e 

4012 NEXT! 

4020 CURSET58,96,0 

4821 FORI "48T055:CHflRI, 0,1 : IF 1 =5S1H£N410 

8£LSECURrtaU25, , :N£XT I 

4100 CURSET28, 187,8 

4110 FORT=0TO7:FORX=0TO7 

4121 CURrlOU25,0,0 

4130 flX=SCX,T]:|FAX=8THEN4240 

4131 IFflX=2TN£NGOSU83208 

4132 IFflX=-2TH£NGOSUB3308 

4133 IFAX=1TH£NGOSUB3080 

4134 IFAX"-1THENGOSU83109 
4240 NEXTX 

4245 1FT=?TH£N4260 

4250 CURnOU-288,-25,0 

4 280 NEXTY 

4279 GOT 0238 

9000 CLS:PRINT:PRINI"LES DftHES ANGLAISES 



9018 PRINT :PRIN 
9828 PRINT :PRIN 


"LES REGLES DU 
1 La nar 


JEU 


383B PRINT"L* p 
9848 PRINT'Oonc 


on i* dtplset 
t ip dla.on 

daux dlfact ion 


fo 


9858 PRINT :PRIN 


2 Ltpn 


. d 


geee print'Xo.. 

9078 PRINT" d* 


a ■'; ;PRINT _ dia 


uw» 


9088 PRINT" par 


daatu«.":PRINT 


flpj 


It prill,* 1( cai ir 
9098 PRINT" pi. 


•nit « nouw.au 





9188 PRIMT" pmnc adw«r«.»." 

9105 PLOTI.26,1 

91J8 PL0T2,26| "TAPER UNE TOUCHE POUR CON 
TINUER" 

.9120 GETfll: tFA»<>""THENCLS 

9130 PRINT:PRINT" 3 Lo promolior, du 

3140 PRINT"Ouand un p I on Ututnt la lot 



9150 PRIKT 8.-. r«ng««,H a. v . 

3155 PRINI-Ouand .1 »^.m: a 
e ran***": 

9;es Pe:sr- (J ,t« a .a p- .<• .)■ 

duarta, . ; - H i ■ 

9178 PRJm:- utr« ,,. £ . „ pram 

. I rant pion. 

9188 PRINT :"R]NT* « La MTi 

□ ana " 

9190 PRINT*!.* ( M j, s , t , ;;,., 

9208 PRINT lout.fo .( la p ,,. B 



:---;- 



t b 



Utffl 



9223 PRINT- ealta 1 =PRINT'. 
9238 PRINT=PRJNT- 5 R. 



9258 PRINT-Toulalo.i 

9268 PRINT-L'adw.rta 
tho«ef:PRlNT ,, .n .1, 
9273 PR1NT-En eti da 
coin dt' i^RINT-la pr 



9288 PRINT" isltnt It - ; :PRINT-oo»Oi» tl 
la valtur dci Placti." 
9285 PLOT], 20,1 

9296 PL0I2.26,' TAPER UNE TOUCHE POUR CON 
T I NUER" 

9300 GETAi:IFfl*.0"- ThENCLS:PAPER1 :|NK8 
9318 PRINT :PR1NT'L'0RIC JOUE LE PREniER 
WJEC LES PIONS" :"RINf'BLEUS 



Rl 



9328 PRINT :PRiN' 
NT" 



9338 PR1NT"£NIR£R UOTRE COUP AUEC LA COO 

RDONNEE":PRINI'HOR120N1ALE 

PUIS UERIICALE." 

9340 PRINT:PR|Nr'ENIR£R 'S' SI UOUS NE D 

ES1RER PLUS" JPRINT'JOUER.' 

9358 PRINT :PRJNT" t-t-t-t-t-f I 

PRINT 



9368 PRINT'vou. 



':PRI 



9370 PRINT'ENTRER A NOUUEAU LES COORDONN 



EES.' 



RINT 



9380 PRINT'S! OOUS NE P0UUE2 PLUS PRENOR 

E TAPER /" 

9385 PLOT], 28, 4 

9398 PL0T2, 26, "TAPER UNE TOUCHE POUR CON 

TINUER" 

9488 GETA«:[FA»<>-"THENI ■ 



II manquait 25 lignes a la tin du 
listing STARTREK dans Heb- 
dogiciel n° 12 

6109 PRINT :PRINTCCI-L-CC« -A>>"CC*'H"CC« " 
BECRANS TOneeS A"CC«"E"SJCC 
•-BUN1TES 

6110 IFH<28THENG200 

6129 IFRNOC1)>.6ORN/S<=.821HEN6209 

6149 Rl'FNRCn:OCRl)-D(RI)-H/S 

6150 GOSUBB790 I 

6178 PRfNTTpRlNTCC'L-CC'-A" ; 
5172 PRINTIA8C1B)"CONTROLE D'AUftRlES S1G 
MALE 

6174 PRINT :PRINT 

6176 PRlNTCC»"H"CC«"£"G7«CCa"BEND0TVinGE 
PAR LE":PR1NT-C0UP 
6288 NEXTI ^RETURN 

6220 PR1NT:PR1NT-C'a«t la Sler jaut "CC»"£ 
*T--GOToe270 

6248 PRINT:PRlNTCC«"L"CCfrt"; 
8242 PRlNTIABtl?)-t.'£NTR£PRlSE A ETE OE I 
RUIIE 

6244 PRINT :PRlNT"La Fad.iatian ...a"CC«" 
Gcoftqun»":GOT0622B 

627B PRINT :PRInT"II y avail ancoi t ■'CLt.-E 
"K9;CCa"Bcroi««ut. dt 
6288 PRINT-balaMIt d. KL1NG0N a la I ,n 



Monsieur Michel FROMAGET nous propose une ameliora- 














tion pour son programme DESCHIFFRES ET DES LET- 






dessine;; Ihippocampe 




_— \ 




TRES paru dans le n*11. 






d'Hebdogiciel sur votre 

ordinateur et envoyez-le m^^i^i^a^^m 






iZZ IF U-l THEN T1-H1+B1 TZ-T1«CI'T3"T2-D1T4-T3*E1 T-T4-F1 




r%{\ 


nous. JL _j 




1 




130 IF U-2 THEH Tl-ftl fBl ■ T2-T1-C1 ' T3-T2*D1 > T4-T3*E1 ■ T-T4*F1 




* VsV 1 


:" ■-. 




j 




135 IF U-3 THEH T1«H1 *61 ■ TZ-T1+CJ T3-T2-DI ■ T4-T3t£l ■ T-T4JF1 ^^ m 


k£ 


^ KJ^J 




■ 




140 IF U-4 THEH ri-filffJl T2-TUC1T3-T2-01 T4-T3*E1 T-T4*F1 ^^pj*^^ 


^ 


% *^ 




■ 




143 IF '.I- - THEH ri-fiUBl r2-Tl-Cl r3-T2*D] T4-T3-E1 T = T4iFl ^W^ ^^ 


k^ 


^ 


■ 




i 




130 IF H-6 THEH Tl -Rl *B1 T2-TUC1 = T3-T2JD1 > T4-T3-E1 ■ T-T4*FI » W^ 


%^ 




i 




! 




J35 IF H-7 THEH Tl>m«81 T2-T1*C1 T3-T2JD1 < T4-T3*E1 ■ T-T4+F1 V • 






i 




| 




150 IF W-8 THEH T1-HI*BI T2*T1*C1 < T3-T2+D) T4-T3*E1 T-T4*F1 W 






■ it ■ 








163 IF W-9 THEH Tl -fll *BI ■ T2-T] *C1 • T3-T2*tU ■ T4-T34E1 ■ T-T4+F1 






■ Bl 1 








170 IF W-10 THEH T 1-ftl+Bl ' T2-T1*C1 ' T3-T2-01 ■ T4-T3*Et - T-T4-F1 






■ II 

.■-:- : 

■■M I 

•«■ Ml 1 

■ ■ 








388 IF W-1THEM PRIHTR1 j "+- i 81 i "-' ; Tl - PRIHTT1 ; "*" , CI . "-" > T2 - PRIHTT2i "-" 


Dl»" 


-"/T3 








'F-RIIITT3, "f'iEl; "-"T4 ■ PRIHTT4 s "*", Fl , u «"i T 












303 IF M-Z THEH PRIHTfil , 'ft Bl j '•-", Tl ■ PRIHTTI ,'■-", CI ,"-". T2 ■ PRIHTT2; "» 

3'PRIinT3;"*",ElJ"-";T4.PRIMTT4,-*",Fli"-",T 

390 IF H"3 THEH PRIHTH] >"*• jSI j "-"j Tl 'PRIHTTI ,"*", CI , "-"j T2 ■ PRIMTT2; "- 


JDK 


"-"jT 






■ 


jDIi 


"-•', t 


i 


i 




3PRIHTT3,-*" ) Elj , --";T4.PRIMTT4.-»" ) Fl-"-";T 






JV 


■ 


■ 




393 IF M-4 TMEII PRIHTRI , "*"; Bl i "•' ; Tl ■ PRIHTTI* "*" i CI i "-" - T2 . PRIHTT2, »- 


iDIj 






3 PRIHTT3, -*";E1,--~,T4'PPINTT4«"*";F1;"-">T 






-J-"*-*" 






400 IF U-3 THEM FRIMTHl,"t",Bir , --;Tl.pRIHTTI ) "-";Cl<"-"jT2-PRIMTT2."* 


jDI j 


"•"jT 




3'PRIMTT3 1 --"/£l,--",T4 l PRIHTT4 ) "«",Fl,"-";T 






i 






4TC IF M-6 THEM rplMTflI»-*-*eij"-",TI .pRIMTTl,"»",Cl,"-",T2FRIHTT2i-*' 


jOIi 




■■ ■ 


: 




3'PRIHU3t---,El,'""«T4.PRIHTT4 ) "*" ) Fl,---,T 






■ ■ ■ ■ 


i 




4)0 IF H-7 THEH minhj ,"*", Bl j "-- j T 1 : PRIHTTI ,"*"; CU "-" j T2 • PRINTTZ, "« 


iDIi 


•••it 




■ 




3PPlMTI-j,"i",El,--" ( T4 FR1MTT4(* + -jF1i"-->T 










SUR TRS 80 


413 IF U*0 1HEH f HinHlj'l*;Bi)"-"jTl PRIHTTlf -*",C1, "■"; TZ'PRIHTTZ^ "*" 


iDI> 


•«"iT 




■ 




3'PRIinrjj"*"(EI,'." ) T4F-RlMTT4j- + -<F|j-«",T 






uV / 






420 IF ll. ■■ Tl'fll IIIHIfi] J -*-;BlJ--";TPPRIMTTl;-«" J Cl«"--iT2.RRtMTT2,"* 


lOl, 


--•jT 




■ 




3 PRIMtlj,' l" i £l,-.",T4 PRIMTT4|-+'lFl;---/T 








1 


Francis 


423 IF IN If 1KCH FPII!Tnij-a*jBl*---*Tl.PRIHTTlJ-*-*ClJ"-",T2.pRIHTT2,-- 
13 PP)HlIV* , l-ai,"'-,T4<PRIMTT4(--- J FI*---«T 


-iPl 


,■•--, 




1 
I 


LERMENIER 



CREAT 



Heureux possesseurs de TO 7 ! Ce programme va vous 
simprif ier la vie : il factlite la creation de motifs person- 
nels, de taille variable, qui seront ensuite utilises aussi 
facilement qu'un caractere. 

De plus.sa numerotation est telle que vous pouvez I'utili- 
ser avec MERGE. CHAPEAU ! 



6£OTfl 


DEFGR1 


e>« >. 




•3- 16- 


.. 


e 








62818 


DEFCRI 


i = ■:-. 


8. 8 


8, 16 


. C-. 


24 








628M 


DEPGRl 




■:■ . _ : 


2, -■ 


. 5, 


8 








6283A 


&EFCRI 


J>« B, 32, i 


86, 64, 


.588, 


8 








&284S 


E>EFCR*< 


«>■ 8> 


8, 8 




. 17, 











62858 


E.EFGPI 


3 h ■?, 


B, 


a, -.-- 


. a. 


32 








-;.:;>* 


['EFGPt' 




7. 8. 


0, 42. 


. 8, 


8 








ii'.-ti 


DEFGRH 


■ ■■ ;. 64, :. 


4,128, 


. 0. 


e 








62881 




= CPEAT - 






62882 


■ AIDE 


-- l» cfe«t:on C'i 


MOTIFS 


ikii: 


Hz: 3, 1093 


T07 




■: .1 . :■■ 


hUTEUP: Paul 


ij«P[. H : 




-.:-: r 


Zl*=GPi 


C8>*GR*4 1 


*CHR< 


ie>*cnp: 


-CHP( 


8 i*CR«i 


2>*GR«<3) 






e-5S£.- 


Z£l=0PJ 


4>*6RS' 5 


->-'I 


!8)*CHRi 


*CHRI 


3 ..OP*. 


i '•CRfi ? 






i£**Q 


PETUPN 








i-Z5*l 


EKD 








id--';* 










i2S»l 




LANCEHEN 






ii^ai 










:JM0 


LOCATES 


. 1BI PRINT 


T*.PEZ - 


-uNcjeet 


IS LA 


TCirjCr+E* 


INTPEE" 






ii?45 


LOCATE* 


.8 






-:::-=..:- 


DEL£TE6288B-6288e 




63889 










■iie>>: 




IHIT. 








Paul GARDAN 



■ill-)-:. iIONiOLF.*. =-=: I - :- : LC PEE N4 ■ ~ ■ ~ 

63886 SIT»-3iK»8i !«HFLl"8«FL2-8iCC»4 

63887 COMS0LE8,28:CLSiCOKS0LEe,24 
63885 SIT»SIT*3iK»l M 

63985 • 

63818 ' :ANE AS 

63611 ' 

63028 F0RA-8T0136STEP8 

^3830 LIME<fl,8 -■". 136>,4 

63050 NEXTA 

63068 F0R8=8T0I36ST£P3 

63078 LIME<8 J B>-<I36/B>/4 

63833 NEXTB 

63890 LIHE<72,8>-<7S»13&>,8 

63100 LINE^.8, 72 ■-. 136,72 .8 

63116 BOX' 26,0 .-148.4) 'V.' , 4. 6 

63120 80>;l26.4-'-i49,8>-:: .-.t 

63 1 38 BO>;(26.3'-i40. 12 ■-:■"'. 4. i 

63140 B0X<26, 12>-(48, 16) ■■■ 

63150 C0LOR4.7 

63160 LOCATE30,2:P?INT-EFFACEfi- 

63165 L0CATE27.6:PRINT-PEC0miENCER- 

63178 LOCOTE28,14:PRINT-CONTINUEP- 

63180 L0CATE32. I8=PP1NT"FIN" 

63190 * 

63195 ' ECRITURE 

63268 ' 

63281 INPUTPEK Xfl, YA:X-XA88l Y-YM8 

67202 IF >:«■:: S OPYi^S 0PVH,136 THENi ;£? I 

63205 IFX>I6THEW637I0 

63266 IT FL=1 THEK63207 ELSE G0T063209 

63267 IF POINTC<A,Yfi> ■ -7 THEN 63201 

63288 LOCATE >:. Y ! C0L0R6. 7: PRINT " -180X.<X 
#8,Y«8:'-(<X«8)»S. (Y«8>*8>,4! C0TC63230 

63289 IF POIMT ■:;;«■ VHj^-7 THEN63281 
63210 COLOR 6, 6: LOCATE*. Y: PRINT" ■ 
63230 IFX'-9THEri63388 EL3E63409 



63296 ■ 

632M ' PREHIER El rROl 5IEKI ;..--- 

63296 ' 

63388 !F\ ,3THEM63358 

63383 IF r L^: THEKPfl --« f>-2*c( 

063500 

63310 PA' v ispfl t-J 3- 

63330 GOTO63500 

^7350 V=v-s 

63355 IF fl=1THE'JF; = ; : i -a : - :,■■ 

063568 

63368 PC' V>»PC' i >*E ,'- 

63370 G0T063588 

63398 ' 

€'!••: ' oeu:-: :e'ie -.- ■..-;;["; :-==:: 

63396 • 

i7406 X=X-8 

63405 IF V>8 THEN634S8 

63^10 IP Vi.*iTKl<iPE.- ■: . = -:■■:■ . -; :.-■. ■ ; c G T 

063588 

63420 PB'V >«PB(Y>*2 '-:- 

63430 COTO6350ti 

63450 Y=Y-8 

63455 IF FL-ITHEMPD(Y>=PD(Y>-2 C8-1 'iGOl 

063560 

63460 PC" v. = P[.'; -; :- ■ 

63490 ' 

63495 ' DEFINITIONS El IMPRESSION PU 

PETIT &ESSIK 

63496 • 

63506 DEFGR*()C)3p<9 U,Pfl a .-- 3),Pft<4J, 
Pfli 5>,Pfti 6 ,Pfl<?) ,pfli S 

63510 DEFCRI K*1)-PS I ,P8 E f P8<3 ,PB<4 
>,P8<5>,PBC6),PB< ' >,PB ; 

63528 DEF0P»'h-3 ==: 1 - : . - .-: T ■- - 

>,PC(5>.PC'6 .PC - ,PC(8 

63530 DEFGR»CK+3J-P»C1 .PD 2>»P£ 3 - ; : 4 

>.PD(5i.PD'6 i,PDC7 . PD' S 

63540 LOCATE S 1 T, ■£! COLOP0, 2 

63550 PRIKTGR«tK)*CR*« -: '♦CHR»tS>*CHRS< 

8>+CHR*<18)*GR*<K+2 >+CHI K+3) 

63570 COLORS,": G0T06329B 

63590 ' 

63595 ' REMISE - I DES PflRftNETRES 

63596 ' 

63600 F0RU=1T08 

63685 ST(U, [,3>=PA 

63610 PACU>=0 

63615 ST(U,2,S>=PB 

63620 PBfU)=6 

63625 ST(M,3,S)=PC 

63638 PC<W)=0 

63635 ST(W,d,S> = PI> 

63640 P[)<14> B 

63658 NEXT 

63660 S=S*1 

63670 If FL2=1THEN63908 ELSE 00T0 63887 

63700 ' 

63705 ' CHOIX DES FONCTIONS 

63706 ' 

63707 PEN 

63716 PEN0: ■ 240,6>-<328,32> 
63720 PENi; ■ r 2i0,32>-<328,64> 



\0 



63738 PEN2f<24t,*4 • »», H 

63740 F£W3: 24r, ■■ 

63758 ONfL'. 

63768 G0T063195 

63788 BE£P)FL2-8!C0TO6368e 

^7- = 5 PEE=:- .. 

63790 ' 

63793 • E--F~:tr*EKT 

63796 ■ 

63808 BEEPiFt«lsL0CATE38,2iCOLORl,7iPtU 

T'EFFACEP*:LC:- _ i J . r - S INT "CO 

NTIMUEP-:C0T0 63193 

63820 " 

63825 ' --=E" 

63838 ' 

63848 C0NS0LEB»2 ■: 

63849 ' 

63S58 ' tONTIMUCS 

63851 ' . 

63895 B8EP:FL«:ll:--E .-.■,-:■.. 

iwr'rONTjNUEP-:.::--: :■■.;: ...... 

T-EFF»CER-!CCTO 63195 
63397 ' 

63898 ' FIN 

63899 ' 

63900 CONiC'LE*. : -: :. LPEE'U.-.' 
63^-0: —62500:l;.: = o:E; -•: 

63902 C0NS0LE24,24 

63903 60XFv0.148>-<88, 172>,2 
■iZ^dA BOXF<88,14S)-cl60.l7a .3 
63965 BOXFtieO. 143 -■ 240. :~; -i 
63906 BOXF<240,14S -■?:?. 1-2 .3 

63967 LOCATE0.29=PPINT-2t^E DES?-JLOMTE 
n,2e:PRlNT-RECOnn^-:LOC«TE21.20:FPiWT-v 
ALIDEP":L0CATE32.28:PP1NT-F;n- 

63968 LOCATE0.0: INPUT-NO It DESSIN*J<W 
63926 LOCATE0.LIG-2 

63938 FORAZ=l TO 4 

63945 AC=AZ-1«BB 

63955 PRINTV;-C-EFCPt' •; iPRINTUSING****) A 

Cft PRINT* >> s f 

63960 FOP U- 1 TO 8 

63965 IFAB=0 THEH OB=4 

63970 PRIKTU31NG-«»i-;;T H,AZ,AA>j 

63972 IFU<8TKENPRI«T". -;ELSE PRIMT 

63975 NEXTH 

63978 u=V*J8 

63938 NEXTAZ 

63985 PEN 

63998 PEN0;<0,152.'->80. ! 7^ 

63991 PENi; i B8, 132 - 168, :"-. 

63992 PEH2:<166. 15E -■;■=■'■:": 

63993 PEN3;<240,152^-<319.I76> 

63994 ONPEKGOTO 63996, 63885. 6;?- _ . ~ ' i 1'. 

63995 C.0T063990 

63996 BEEP:lOCATEO.0=PPINT- 

*lLIG»fttcC»8iB8-4tC0T06398 



63??7 oi = -ThPez • ' :■ : : .= -- '■.■;:-■- 
TREE 1 PUIS SUP 'RAZ-... TEPMINE" 
63993 BEEP: CONSOLE 18, 21 ECLSSCOWSOLEO, 
L0CATE6, 19!COLOR0,7!PPINTUSINC 01: CC 
CATE0, I =C0L0R4.7 



E'. 



PWR 



Jeune ingenieur diplome, vous venez d'entrer chez EDF. pour 
piloter un reacteur nucleaire. Pour cela. vous allez subir une 
periode de formation sur un simulateur PWR (Pressurized 
Water Reactor; Reacteur a Eau Pressurisee). Vous pourrez 
jouer sur la pression et le debit du fluide caloporteur, sur les 
barres de commande qui regulent la reaction en chaine. Le but 
de votre entrainement est d'arriver a produire autant d'electri- 
cite que necessaire. Reussirez-vous ? Attention, une centrale 
nucleaire n'est pas un jouet. 

Giltes OSMONT 

Le but du jeu est de produire 900 MWC (plus ou moins 20) en modifiant 

BC. PI, D. II dure 24 heures, mais vous avez 10 heures pour vous entrainer. 

Apres on comptera vos points... 

Si vous produisez trop (SURPROD) = 1 point 

Si vous produisez moms (SOUSPROD) = 3 points. 

Attention, si vous declenchez I'alerte. meme des le debut, vous marquerez 

5 points. 

R6SULTATS : 

Inferieur a 5 : EXCELLENT 

Entre 5 et 25 :SATISFAISANT 

Au-dela de 25 : DESASTREUX 

Remarquable : Si vous voulez voir votre score precis, faites RCL 5. Ne 

pas taper R/S apres Introduction des donnees (BC. D. PI), 




HP 41 



88:58 26.ll 


31 RCL 81 


62 STO 87 


93 348 


8ULBL -PUB- 


32 138 


63 VIEW X 


94 RCL 84 


82«I_6L 88 


33 *}V 


64 FIX 8 


95 X>Y' 


83 1 55 


34 XE8 1 1 


65 PSE 


96 XEQ 1 1 


84 STO 8I 


35«LBL 83 


66«LBL 88 


97.LBL 88 


85 288 


36 TONE 5 


67 RCL 81 


98 RCL 83 


86 STO 82 


37 -Tl=- 


68 .98 


99 58 


87 e 


38 (1PCL 82 


69 » 


188 / 


68 STO 88 


39 -E C- 


78 STO 83 


181 RCL 84 


89 STO 85 


48 PVIEH 


71 TONE 5 


182 > 


18 9 


41 PSE 


72 -P2=- 


183 .93 


11 STO 86 


42 388 


73 flRCL 83 


184 « 


12 5 


43 RCL 82 


74 ■(• B.- 


185 STO 89 


13 STO 8? 


44 X>V? 


75 flVIEN 


1B8 TONE 5 


14 STO 88 


45 XEQ 11 


76 PSE 


187 •««=• 


15 FIX 8 


46«L8L 84 


774LEL 87 


188 ARCL 8 


16tL8L 81 


47 RCL 86 


78 1888 


189 ■(■ UN? 


17 TONE 1 


48 "BC = ?■ 


79 RCL 86 


118 flVIEU 


18 TOME 3 


49 PVIEN 


88 Xt2 


111 PSE 


19 •TE«PS= ■ 


58 PSE 


81 / 


112 RCL 88 


28 HKL 88 


51 FIX 1 


82 RCL 87 


113 18 


21 "t- H." 


52 .TONE 7 


83 / 


114 X<=Y' 


22 BVTEW 


53 STO 86 


84 RCL 8? 


115 XEO 12 


23 PSE 


54 VIEN X 


85 * 


116<LBL 8? 


24<LBL 8? 


55 PSE 


86 STO 84 


117 RCL 88 


25 TONE 5 


56<L8L 85 


87 TONE 5 


118 -PI = 


26 -P1=" 


57 RCL 87 


88 "T2=- 


119 flVIEU 


27 dPCL 81 


58 "J = ?■ 


89 BRCL 84 


128 PSE 


28 -V 8.- 


59 PVIEN 


98 "F C- 


121 FIX I 


29 «V1EU 


68 PSE 


91 flVIEU 


122 TONE 7 


38 PSE 


61 TONE 7 


92 PSE 


123 STO 88 



124 VIEN X 

125 FIX 8 
126.L8L 18 

127 RCL 83 

128 .98 

129 * 

138 RCL 98 

131 * 

132 1 

133 - 

134 STO 81 

135 RCL 84 

136 .87 

137 « 

138 STO 82 

139 1 

148 ST* 88 

141 RCL 88 

142 24 

143 X=V? 

144 GTO 15 

145 GTO 81 
146»LBL U 

147 -BLERTE- 

148 HVIEH 

149 TONE 9 
158 -PLERTE- 

151 flVIEU 

152 TONE 9 

153 -OLERTE- 



154 BVIEN 

155 TONE 9 

156 5 

157 STt 85 

158 RTN 
159.LBL 12 
168 RCL B9 

161 928 

162 - 

163 X>8? 

164 XEB 13 

165 RCL 89 

166 8M 

167 - 

168 X<8? 

169 XEO 14 
179 RTN 
I7HLBL 13 

172 -SURPROD... 

173 flVIEU 

174 PSE 

175 1 

176 STt 85 

177 RTN 
I78«LBL 14 

179 "SOUSPROD.. 
188 flVIEU 

181 PSE 

182 3 

183 ST* 85 



184 RTN 
185.L8L 15 

186 -RESUITB.T :• 

187 BVIEU 

188 PSE 

189 5 

198 RCL 85 

191 X<=Y' 

192 GTO 16 

193 25 

194 RCL 85 

195 X<=P 

196 GTO 17 

197 -DESBSTREUX... 

198 flVIEU 

199 PSE 
288 GTO 18 
28LLBL 16 

282 -EXCELLENT... - 

283 flVIEU 

284 PSE 

285 GTO 18 
286«L8L 1? 

287 -SATISFfllSANT- 

288 flVIEU 

289 PSE 
218*L8L 18 
211 .END. 



* 



Suite de la page 5 



N"12 ERRATA 
COMMODORE VIC 20 
Le programme PAC MAN neces- 
sity une extension memoire 8K. 



2QJI 

2025 
2026 
2927 
2939 



3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 



G0T01117 

P1=7?33'C1=30-GOTU1117 

1 FLA; 0THEH<3=G-LR i 0010282 1 

GOT 01 97 

REM** MliE. EN PLACE CE5 ELE5iE' s ♦* 

HI-INT<RND<l>*3>:C5"i 

[FNl*eTHENPl«7733 O-O+l Cl=>31 '0OT02829 

IFH1=1THEUP1=7909 0-0*1 Cl-31 GOTO2025 

IFNl=2THENPl='S0e5 G=G*1 Cl-31 

IFW=1THEII2P27 

R*TI TI*="O00090" -U«l 

0OTOU17 

N*INT<RND«>*4)5M"6 

rj(IHi;.OTO3001 ,3002,3003.3004 

DP=F'I*IIITfPHOU)»12).GOrO3005 

DP=Pl'21*IHT^HD'l t*i2> GOTC3005 

0P=Pl+42«-INHPMD' 1J«12) OOTO3003 

OP-Pl+63+IHT'PHD' »*12) 

IFPEEK',DP>=32THEH2017 

COTO3000 

RETURN 

REM** FIH EU JEU •* 

E*=TI* F0PT=130TO243 F'OKE&I ■ T FORV-1T028 NEX1 

POKEil .0 NEXT 

P0KE36«69.24B PRlnT'Tl" 

" LES" 



M\C 



2.0 



1 #/uUS riVEZ SfflJVE 
SPLF-f?E& EN" 
"MIM(E*.3.2>."M. ".fiI0MT«(E*.2>." 
' PRINT "DHnoaMMIH SPOUR R'Etm.Hk hPPijvK 1 " 
C-OUI/H-HONl" 



PRINT"! 

PRINT'' l 
PRINT"! 

1 1- nil"-; 
i- pi in- 

GETftt 
|FR*«"O"TNENOOSUI4e00 RUN 

IFfl»-"N"TMENGnSU840OO PRINT "II 

i-,iiirj,LM:4 

PQKS.36979.Z7 PRINTCHft«OI) LI81 

P0KE36876.23li P0RT»1T0M NEXT P0KEM878#8 RETURN 
FOKE368e9.240 PR I H I" ^BWWWMM »IROP fflftD" 
PR1HT"«"L.1I"M Li.'.., I I'l "il. I . ■ i i.i- - ; I" ■'■'■ In 1016 



II MUllnl" I I'l-'l-l I".' .1 .1 I-" ■ ■■ 



LOGO: UN LANGAGE DYNAMIQUE 



La recursivite n'esl pas une 
caractens-l'qwe du langage 
LOGO (on la retrouve en LISP, 
LSE. etc.), encore moins un 
style de resolution de probleme 
propre a linlormatique 
En tait, du moins certains 
I'aftirment-ils, c'est une facon 
Ires naturelle de resoudre un 
probleme. 

Prenons un exemple . 
Apprenons a compter a notre 
ordmateur (inutile de compli- 
quer les choses '). 
En BASIC, nousecrivons (pour 
compter de 1 en 1), partir de 1 
(pour fixer les idees) : 
10 C= 1 
20 PRINT C 
30 C = C - 1 
40 GOTO 20 

Le BASIC n'etant pas recursif. 
nous avons utilise 1'iteration. 
c'est-a-dire la repetition. 
En LOGO, et de facon recursive : 
pour compte : C 
AFFICHE: C 
COMPTE: C-f 1 
FIN 

La procedure COMPTE s'ap- 
pelle elle-meme dans sa defini- 
tion. C'est I'expression de la 
recursivite: une procedure est 
dite recursive si elle contient 
dans sa definition un appel a 
elle-meme. 

Revenonsau probleme depose. 
Compter a partir d'un nombre 
(1). c'est afficher ce nombre O) 
puis afficher le nombre imme- 
diatement supeneur (2). et ainsi 
de suite. 

La recursivite rend compte de 
I'expression « et ainsi de suite », 
qu'il est toujours aise de com- 
prendre intuitivement. Avec le 
programme BASIC de I'exem- 
ple precedent. I'ordinateur 
continuera a compter, sans tin. 
Si nous desirons stopper le 
compteur. en 10 par exemple. 
nous devons ecrire : 
10C = l 
20 PRINT C 

30IFC = 10 THEN STOP 
40 C = C + 1 

50 GOTO 20 

De la meme facon, pour la pro- 
cedure LOGO, un critered'arret 
doit etre signale . 
POUR COMPTE: C 

51 : C > 10 ALORS STOP 
AFFICHE: C 
COMPTE: C+ 1 

FIN 

Les probJemes possedant une 

solution de type recursif sont 



nombreux et vanes : tns. gra- 
pheme, intelligence artificielle, 
jeux... 

Laprogrammation recursive est 
bien plus sophistiquee que ta 
programmation iterative par 
boucles. et off re I 'a vantage 
d'unegrande puissance etd'une 
certaine elegance dans la pro- 
cedure obtenue. 
Un seu! probleme : d'une part, 
lorsque Ion a beaucoup prati- 
que les langages non recursifs, 
i'iteration est le reflexe naturel 
(Deformation ">) pour la resolu- 
tion desproblemes.D'autre part, 
la recursivite, relativement sim- 
ple a detecterdans la definition 
du probleme. n'est pas toujours 
aussi simple a mettre en ceuvre. 
lorsdel'ebauched'unesolution. 
Cela dit, il semble que le lan- 
gage LOGO motive (pardonnez 
cetres tres mauvaisjeu de mot) 
car, malgre une timide appari- 
tion dans HEBDOGICIEL. nous 
avons re?u beaucoup de cour- 
rier a son sujet. 
Nous publions la lettre d'Alain 
PRE, ou vous trouverez matiere 
a reflexion sur la recursivite. 

Pierric GLAJEAN 

En plusdesa puissance etdesa 
facilite. LOGO possede en effet 
une qualite particulierement 
interessante: il est portable a 
95%. Autrement dit. tout pro- 
gramme LOGO pourra etre 
entre pratiquement sans modi- 
fications sur APPLE. ATARI, 
GOUPIL 111, Tl 99. et bientot TO 
7 puisque LOGO est annonce 
sur cet appareil. 
Vous trouverez ci-joint deux 
programmes LOGO tres sim- 
ples qui seront un excellent 
tremplin pour ceux qui decou- 
vrent ce langage. Pour faciliter 
encore leur tache. la lisle des 
principals instructions LOGO 
graphique est egalement jointe 
(en franpais et en anglais). 

A. PRE 

I — PRIMITIVES GRAPHI- 
OUES DU LANGAGE LOGO, 
Les dessins de LOGO sont rea- 
lises par une tortue represen- 
tee, sur I'ecran, par un triangle 
(la tete etant la pointe) sauf 
chez ATARI ou la tortue est reel- 
tement dessinee avec sa tete et 
ses pattes. 

Voici les principals primitives 
(instructions de base du lan- 
gage) qui commandent la tortue. 



FRANCAIS 


ABREVtATIONS ANGLAIS 


AVANCE -NOMBRE - 


AV FORWARD 




Fait avancer la tortue de la quantite 




indiquee. 


RECULE - NOMBRE » 


RE BACK 




Fait reculer la tortue de la quantite 




indiquee. 


DROITE- ANGLE- 


DR RIGHT 




Fait tourner la tortue sur la droite de 




Tangle indique. 


GAUCHE "ANGLE- 


GA LEFT 




Fail tourner la tortue sur la gauche de 




1 angle indique. 


LEVECRAYON 


LC PENUP 




Apres cet ordre, la tortue se deplace sans 




tracer 


BA1SSECRAYON 


BC PENDOWN 




Remet la tortue en mode trace. 


GOMMECRAYON 


GC PENERASE 




Apres cet ordre. la tortue efface au lieu 




de tracer. 


CACHETORTUE 


CT HIDETURTLE 




Fait disparaitre la tortue de I'ecran 




(dessin plus rapide). 


MONTRETORTUE 


MT SHOWTURTLE 




Fait reapparaitre la tortue. 


VIDECRAN 


VE CLEARSCREEN 




Efface I'ecran graphique. 


MODEGRAPHIOUE 


FULLSCREEN 




Consacre la totahle de I'ecran au 




graphique 


MODETEXTE 


TEXTSCREEN 




Consacre la totaitte de I'ecran au texte. 


MODEPARTAGE 


SPLJTSCREEN 




Reserve que Iques lignes en bas de I'ecran 




graphique pour le texte. 


FIXECAP- ANGLE- 


FC SETHEADING 




Donne a la tortue I'orientation demandee. 


FIXEPOS "X Y- 


STPOS 




Donne a la tortue la position specifiee en 




coordonnees catesiennes. 


FIXEX -X" 


SETX 




Positionne la tortue sur I'abcisse X. ne 




change pas I'ordonnee Y 


FIXEY-Y- 


SETY 




Symetnque de la primitive precedente. 


FJXEVITESSE - VITESSE ■ 


SETSPEED 




Donne a la tortue une vitesse constante 


FIXECOULEURCRAYON 


FCC SETPENCOLOR 


~ COULEUR - 


Change la couleur des futurs traces. 


FIXECOULEURFOND 


SETBACKGROUND 


-COULEUR- 


Change la couleur du fond 


CAP 


HEADING 




Rctourne I'orientation do la tortue. 


COULEURCRAYON 


PENCOLOR 




Retourne la couleur courante 


POSITION 


POSITION 




Retourne la position de la tortue sous la 




forme X Y 


VITESSE 


SPEED 




Retourne la vitesse de la tortue. 



II — DEFINITION DE NOU- 
VELLES PROCEDURES 
Le programmeur LOGO peut 
definir a volonle de nouvelles 
instructions. Celles-ci sont 
ensuite utilisables tout comme 
les primitives du langage, c'est- 



a-drre. sou a partir du clavier, 
soil pour la definition d'aulres 
procedures.de plus haul niveau. 
Certains mots du langage sont 
necessaires pour gerer les pro- 
cedures utihsateurs. 



FRANCAIS 


ABREVIATIONS ANGLAIS 


POUR •■ MOT ■■ 




FIN 

EFFACEP- NOM» 


TO 
Annonce la definition de la nouvelle 
procedure •■ mot ». 

END 
Fin de definition d'une procedure 




Efface la procedure ■■ nom ». 



Voici main tenant quelques 
exemples graphiques. Comme 
tout programme LOGO, lis 
consistent en la definition de 
nouvelles procedures. 
POUR SPIRALE: TAILLE 
SI INF?: TAILLE 1 STOP 
TRACE COTE: TAILLE 
SPIRALE: TAILLE- 1 
FIN 

POUR TRACE COTE: 
LONGUEUR 
AVANCE: LONGUEUR 
DROITE 90 
FIN 

Pour executer ce programme 
quand vous I'aurez entre, taper 
au clavier SPIRALE 50 (ou un 
autre chiffre). 

A ce moment la procedure SPI- 
RALE sera executee avec la 



variable TAILLE contenant 50. 
Comme ce nombre est supe- 
rieur a 1 , I'ordre STOP ne sera 
pas execute {ligne 1 ) et done le 
deroulement se poursuivra. 
On etfectue ensuite un bran- 
chement a la procedure TRACE 
COTE (qui peut etre consideree 
comme un sous-programme de 
SPIRALE). Et. enfin. on recom- 
mence le tout avec une TAILLE 
diminuee de 1 (ligne 3) jusqu'a 
cequeTAILLEatteignelavaleur 
1. 

DESSIN RECURSIF: ce pro- 
gramme dessine une figure 
composee d'un motif unique 
qui se repete indefiniment en 
devenant de plus en plus petit. 
Voici ce motif : 




Chacun des quatre segments 
est a son tour decompose : 




ainsi de suite. Au bout de 
quelques passages, le dessin 
devient tres complique. 



POUR DESSIN RECURSIF 






A VOS MAROUES 






PRET 






PARTEZ 






FIN 






POUR A VOS MAROUES 


POUR PRET POUR PARTEZ 


VIDECRAN 


LEVECRAYON MULTICOURBE 81 


CACHETORTUE 


FIXEX DIFFERENCE 128 FIN 


FIN 


FIXECAP 90 




BAISSECRAYON 




FIN 




POUR MULTICOURBE: 






ORDRE 






SI INF?: ORDRE 1 STOP 






COURSE 81 






PRET 






MULTICOURBE QUOTIENT : 






ORDRE 3 






FIN 






POUR COURSE: LONGUEUR 






SI TERMINE AVANCE : LONGUEUR 


ON CONTINUE 


EFFACE: LONGUEUR 






GAUCHE 60 






SI TERMINE AVANCE: LONGUEUR 


ON CONTINUE 


DROITE 120 






SI TERMINE AVANCE : LONGUEUR 


ON CONTINUE 


GAUCHE 60 






SI TERMINE AVANCE : LONGUEUR 


ON CONTINUE 


FIN 






POUR TERMINE 




POUR ON CONTINUE 


RETOURNE INF?: LONGUEUR 


ORDRE 


COURBE QUOTIENT: LONGUEUR 3 


FIN 




FIN 


POUR EFFACE: L 






GOMMECRAYON 






AVANCE: L 






RECULE; L 






BAISSECRAYON 






FIN 







Essayons de comprendre Le 
programme principal est bien 
sur DESSIN RIECURSlF ll fa.t 
appel a trois procedures A- 
VOS MARQUES, qui efface 
I'ecran et la tortue. PRET qm 
positionne la tortue sur la 
gauche de I'ecran et PARTEZ 
qui lance I'execution du dessm 
en appelant la procedure MULTI- 
COURBE 

Ce!le-ci dessine tout d'abord la 
courbe la plus simple (lig. 1) 
avec des segments d'une lon- 
gueur de 81. puis repositionne 
la tortue au point de depart 
(PRET) et, enfin. recommence 
la meme chose avec une courbe 
d 'ordre trois fois plus petit done 
avec des segments trois lois 
moms longs (tigure 2). 

Ceci se repete jusqu'a ce que 
Ton atteigne I'ordre 0. A ce 
moment-la. la condition INF'' ■ 
ORDRE 1 (qui signifie : ORDRE 
1) est vraie et I'ordre STOP 
est execute. 

C'est la procedure COURBE qui 
se charge de tracer le dessin. La 
premiere ligne trace le segment 
AB. La deuxieme efface le seg- 
ment BD. La quatrieme et la 
sixieme se chargent des seg- 
ments BC et CD. Enfin. la hui- 
tieme termine par le segment 
DE. Bien entendu, ces dessins 
ne sont executes que si I'ordre 
final a ete atteint. Dans le cas 
contraire. ta procedure ON 
CONTINUE s'occupe des details 
plus petits. 

La syntaxe LOGO est quelque- 
fois deroutante pour les calculs 
numeriques : en effet les opera- 
teurs sont places en debut, suivi 
des operandes. 

Ainsi 

QUOTIENT: LONGUEUR o 
signifie: LONGUEUR/ 3 
DIFFERENCE 128 
signifie - 128 

Les operateurs logiques obeis- 
sent aux memes regies : 
INF?: ORDRE 1 signifie: 
ORDRE 1 (condition) 
Remarque : sur certains LOGO, 
la syntaxe habiiuelle est auto- 
risee. 

Comme vous le voyez. LOGO 
permet de tracer de facon sim- 
ple des graphiques tres com- 
plexes. Un programme BASIC 
equivalent a DESSIN RECUR- 
SIF comporterait au moms une 
centaine de lignes et son ecri- 
ture demanderait de serieuses 
connaissances. 

LOGO permet bien sur de (aire 
autre chose que du graphique 
mais il est agreable de com- 
mencer par la. Ouand vous en 
saurez un peu plus, vous pour- 
rez vous attaquer aux ■ traite- 
ments des listes ■■. Cet autre 
domaine de LOGO vous don- 
nera acces a des applications 
proches de I'inteHigence artifi- 
cielle (jeux intelligents, resolu- 
tion de problemes logiques 
simples, etc.). ■ 



METEORES 



Saurez-vous trouver la clef de ce champ de meteorites ? 
Attention aux rencontres inopportunes! 

Cyrille DANES 



AtfOt* 



%-07 



1 


REM CHAMP DE METEORITES 












■.' 


REM C-/r i 1 1 e 


Of-riES 














3 


REM Vor-tlon 
DO SUB lOOO 


CANON 
















CLS:FClR]-OT 


100»L» 


ZOiX-RNDU) *! 




=iND!I1 


• 17 


PSETI 


6 
7 


LOCATE 17.2 
X-IlY-llDH- 


PRINT" 
:DW-1 


'MLINE(O.O)- 


(0,3 


1 : L I NE 


-11 


9 


31 I 


? 


F-RESETU.21 
A-STICK(O) 


PRESET 
IF A-C 


12,21 :PRESET( 
THEN \2 


2.1). 


PSETI1 


!> 








DH-JI <A>iDV-J2(AI 














12 Xl-X+DHiYI 


Y*DV 














13 IF POINT(X 


. ¥ 1 ) — 


GUTD 100 












M PHCBEKX.Y 


iX-XH 


V-VliPSETIX,Y 


H8EE 


P $'->. 1 


i -r i r 1. 1 


10 



100 REM Fin du tableau 

101 IF 11(102 OR Xt>107 OR Y1-: 16 OR Yl-21 THEN 20O 

102 CLSiPRINT-Voo* pa»*»; <u" iL-L* 1 1 PRINT lAOti) t "t»bt mo' 

103 RESTORE 104jFOR 1-1 TO 7jREAD A.BlBEER A, Bi NEK t i GOTO ! 

104 DATA24. 04. 20. 04, 17,04,0, 1,24,07,20,04, 17, 06 
200 REM Fin at! par-tie 

210 FORI -ITOHl CIRCLE (XI , YD , I i NEXT i FORI-OTG300i NE I T i CLS 

220 S-INTI I000»L'300-S0R! (I 19-KU ' 2H 31-Y1 I ' 21 > 

230 PRINT"9C0REi"|9 

240 F'RINT-Un* autre parti* "'"i IN I T»l , "KBDl " 

230 R»-INV.EY»i IFR«- , " , THEN250 

260 IF R«-"0"rMEN L-0i0OT05 

270 C0N90LE., , 1. IiCLSiEND 

1000 REM Ini t 1*1 mat ion 

1008 CONSOLE O,4,0,0,0iCL5iF'rilNrri!R]N0«i; 

[010 MINT" CHAMP DE METEORITES'"! 

1030 PRINT QTRING»!7(J,"") I iREfllORE I u4.ru I 

1030 READ Jl (II. J2(I) INEJfT 

1040 DATA 0,0,0,-1,1,-1.1,0,1.1,0.1 

1030 DATA-1, 1,-1,0,-1,-1 

1031 PRINT " CANON X-07"l 
1033 FOm-OTOlOOOiNEXT 
\<U.f> riUlll-j 



troNSUi i-:gi.'.iti -o 
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KINGDOM 



Vous avez ete elu pour sept ans <■ ROI • d'une petite He 
dont les habitants, tous agriculteurs, vous ont confie la 
totalite de la gestion de leurs revenus et depenses. Vous 
devrez.evidemment.assumerTOUTES les consequences 
de vos decisions. 
La monnaie locale est I'um {Unite Monetaire). 

Pierre-Francois LECOINTRE 



Voici les conditions de depart : 

— Superticie : 1990 a 2010 hectares. 

— Population : 490 a 510 habitants. 

— Budget total ; 70 000 a 72 000 urn 



Vous disposere; des revenus suivants : 

— Recolte. 

— Ventede terrains aux industriels. (Ceux-ci prennent totalemenl 
en charge la main-d'ceuvre qu'ils (ont venir.) 

— Tounsme. 

Munis des modalites suivantes. il ne restera plus qu'a vous souhai- 
ter - BONNE CHANCE POUR VOS 7 ANNEES ! ■■ 

— Un minimum de 100 um/an/habitant est necessaire pour assurer 
la survie des insulaires. 

— Tout deces vous oblige a depenser 9 urn pour I'enlerrement. 

— L'education (max. 10 um/an/habitant) augmente le rendemem 
des recoltes dans les annees suivantes. 

— Le rendement des plantations diminue au fur el a mesure que 
croit la pollution. 

— La surface cultivable est limitee a 2 ha/habitant, 

— Les plantations coutent entre 10 et 15 urn par ha. 

— Elles rapportent de 40 a 60 um/an/ha. 

— La vente de terrains aux industriels rapporte de 95 a 105 urn par 
ha plus une taxe tixeannuellede45 um/ha. Notez que 1 000 hade 
I'ile sont recouverts par une foret dense et ne sont done ni cultiva- 
tes, ni negociables avec ies industriels. 

— La pollution est amenee par I'implantation d'usine. 

— 2 ha d'industrie sont necessaires a I'arrivee des premiers lou- 



nstes (Correspondant a I implantation de quelques commerces et 
hotels) Ces amvees augmenteront jusqu'a ce que 26 ha soient 
occupes par des usines. La pollution fera evidemment fuir les 
tounstes 

— Vous aurez de graves problemes si les travailleurs immigrcs sont 
en» surnombre" (plus de 50 %de la population msulaire). si le tiers 
de la population emigre ou meurt 

— Une unite de pollution demande pour son traitement 0.44 urn. 

Comme vous le constaterez. s'll n'est pas difficile de ■■ tenir - 2 ou 

3 ans. remplir vos lonctions pendant sept ans demande certains 

talents. 

La repartition du budget. lequel pessede la facheuse tendance de 

s'amenuiser avec les annees. dans les differents posies du budget 

doi I etreeffectueede (aeon a assurer des ressources correctes pour 

file aussibien a court qu'a long terme Dela vient ladifficultedujeu. 



Z*S1 



[g PEN VERSION ZX8I , 16* 
20 REM BY P.P. LEC01HTRE 

25 RAND 

38 BCROLL 

i\ print TAB 10;" kinddon " 

H SCROLL 

33 pRini tee iflj- •■ 

40 LET Tl=7 

41 LET T2=7 

42 LET [-0 

43 LET Zl«S 

44 LET Z2«=e 

45 LET ec>=0 

46 let m=700OO*1nt •■ itiyytPMi- i 

47 LET K-490+INT C20*RND> 
43 LET S9*1SS8+IN1 f,20*RND> 
43 LET 3=33 

50 SCROLL 

51 SCROLL 

52 SCROLL 

53 SCROLL 

54 PRINT '■BONNE CHANGE POOR VOS ".7 1," ANNEES.' 
60 G03U8 2060 

70 LET El=6 

71 LET P6=U 

72 LET PI =6 

73 LET P5=0 

74 LET 115=0 

75 LET t'l = IHT CH>3J 
73 GOSUB 2000 

SO LET S0-33+IN1 (IWRHDj 

31 LET S1-10+IK1 C5*RND> 

90 SCROLL 

31 PRlur "VOUS AVEZ ";Mj" Uil, " 

100 SCROLL 

101 PRINT H-" CIT07ENS." 

110 IF 1=0 THEN GOTO 120 

111 SCROLL 

112 PRINT I," TRfiVAILLEURS 1I111IGRES. " 
128 SCROLL 

121 PRINT "ET "iSi" HECTARES." 

130 SCROLL 

131 SCROLL 

132 PRINT "CETTE RNHEE LES INDUSTRIELS" 

133 SCROLL 

134 PRINT 'VOUS 0FFRENT ".-SO." UM PAR HH. " 

140 SCROLL 

141 PRINT "PLANTER VOUS CflUTERfl "-31-" UH'HR. " 

150 IF P1=0 THEN GOTO 160 

151 SCROLL 

132 PRINT "POLLUTION EVALUEE R ",P1 

153 SCROLL 

154 PRINT "UNITES DE POLLUTION." 
160 GOSUB 2000 

170 SCROLL 

171 PRINT "COnBIEN D HO V0ULEZ-VOUS VENDRE" 

172 SCROLL 

173 PRINT "RUX INDUSTRIELS ?" 

174 INPUT £2 

175 SCROLL 
17c PRINT 82 

ISO IF S2X0 THEN GOTO 170 

130 IF 32-'' S-IOOO; THEN GOTO 250 

200 SCROLL 

201 PRINT "V0Y0N3. VOUS N BVEZ QUE ".S-IOOO 

202 SCROLL 

203 PRINT "HECTflRES DEFPICHES." 
210 IF Zl<>e THEN GOTO 170 

220 SCROLL 

221 PRIHT "'. VU LES COUTS D ABATTAGE LES" 

222 SCROLL 

222 PRINT "INDUSTRIELS HE VEULENT PftS ACHE-" 

224 SCROLL 

225 PRINT "-TER DE Lft FORET. >" 
230 LET 21=1 

240 GOTO 170 

250 LET ii=t1*IMT CS2*S0> 

260 LET 3=3-32 

270 LET r3-INT '.'.S3-S/I45/ 

230 LET 112=0 

261 LET 113=0 
2x2 LET 114=0 

230 SCROLL 

231 PRINT -CONBIEN D UI1 D 1ST R1BUEREZ -VOUS" 

232 SCROLL 

233 PRIN1 "ft VOS COMCITOYEHS ?" 

234 INPUT 111 
255 SCROLL 
236 PRINT til 

300 IF N1.0 I HEN GOTO 230 

310 IF HK«N THEN GOTO 340 

J26 GOSUB 2100 

330 GOTO 290 

340 LET M=IHI '.I1-H1 i 

350 IF 11=6 THEN GOTO 670 

.i60 SCROLL 

361 PRINT "C0I1BIEN D Hh PLANTEREZ-VOUS" 

362 SCROLL 

363 PRINT "CETTE ANHEE ?" 

364 INPUT S3 

365 SCROLL 
'!<& PRINT S3 

376 IF S3-,6 THEN GOTO 366 
388 IF S3X«H*2 THEN GOTO 410 

390 SCROLL 

391 PRINT "CHHOUE HMBHANI Nt PtUl TRAVAIL-" 

392 SCROLL 

353 PRINT "-LER QUE 2 HH HU MAXIMUM." 

400 GOt'J 478 

418 IF 83<"8-ieee IHtH GOTO 440 

420 SCROLL 

421 PRINT -L 1LE NE COMPTE QUE ".S-1000 

422 SCROLL 

423 PRINT "HECTflRES DE [ERRE CULT1VHBLE," 
430 GOTO 478 

440 LET I14-S3IS1 

430 If I14<*I1 IHfcN GOTO 510 

460 GOSUB 2100 

4 70 SCROLL 

4/1 PWHl "Lt BUDGET VOUS LIM1TE H ")IH1 ' IVS1 ; 

406 BCROU 

481 PR1N1 "LB POPULATION PEW IPHVHILLER" 

482 BCROLL 

493 PPINI "JU-'JU H "-HI2-" HH," 

430 SCROLL 

431 PRINT "SURFACE CULNVHbLL ".S-1O0O-" HH. " 



500 GOTO i60 
510 LET I1=INT CIM14> 
520 IF 1-1=0 THEN GOTO 670 
536 SCROLL 

531 PRINT "BUDGET t'E L EDUCATION ?" 

532 INPUT 112 

533 SCROLL 

534 PRINT M2 

540 IF 112-0 THEN GOTO 530 

550 IF M2<=M THEN GOTO 580 

566 GOSUB 2106 

570 GOTO 530 

580 LET M=INT CM-H2) 

530 IF 11=0 THEN GOTO 670 

660 IF S=S3 THEN GOTO 670 

610 SCROLL 

611 PRINT "OUELS CREDIT:. ftCCORDEZ-VOUS H LB" 

612 SCROLL 

613 PRINT "LUTTE CONTRE LP POLLUTION ? n 

614 INPUT N3 

615 SCROLL 

616 PRINT 113 

620 IF H3<0 THEN GOTO 610 

630 IF M3\=H THEN GOTO 660 

640 GOSUB 2106 

650 GOTO 610 

666 LET M=INT £M-M3) 

67^ GOSUB 2000 

6S6 LET D6=0 

681 LET E2=I12- H 

6vZ LET D2=INT (H-(11^1O0> 

630 IF D2<=0 THEN GOTO 726 

760 LET D8-D2 

710 SCROLL 

711 PRINT D2." HRBITflNTS SON! MORTS" 

712 SCROLL 

713 PRIHT "DE.-.NISERE." 

726 LET D3=INT ■ (Pl'106060 >*■>:. 1 + .4+RHD >tH> 
730 IF [J3';=0 THEN GOTO 760 
746 SCROLL 

741 PRINT 03.- HABITANTS SONT WORTS PHR" 

742 SCROLL 

743 PRINT "INGESTION D ALIMENTS ROLLUES. " 
750 LET D0=DO+D2 

760 IF D0<=0 THEN GOTO 8/0 
7?6 LEI F=D0*9 
788 SCROLL 

?81 PPINI "VOUS DtvPtJ DEPENSER "-F 
7iZ SCROLL 

7S3 PRIHT "Oil PuUP LES ENIEPRER." 
730 LET M=M-F 
300 IF I1,=6 THEN GOTO 370 
818 SCROLL 

311 PRINT "VOIRE BUDGET VOUS IMPOSE DE" 

312 SCROLL 

313 PRINT "VENDRE DU 1ERRHIN." 
S20 LET C8»-INT •Ti J S6.-*l 

321 LET S-S-C8 

336 IF -;- = lOO0 IHtN GOTO 060 

346 SCROLL 

341 PRINT "VOUS N HVE2 PHS HSSEZ DE TERRAIN" 

350 GOTO 2200 

360 LET H»M*C8*Se 

370 IF L'0-200 THEN GOTO 2248 
330 LET H=H-D0 

830 LEI D1=D1-D6 
360 IF DK8 THEN GOTO 2230 
310 IF D2.=2 THEN GOTO 930 
320 IF 11/560 THEN GOTO 2318 
336 IF 82"8 I HEN GOTO 330 
346 LET C8-INT C S2*2*82*RND J 
550 IF 1=0 THEN GOTO 376 
960 LET C0=INT CC8+. 1*1 ' 
970 SCROLL 

371 PRINT CO," TRH'/HILLEURS IIIHIGRES" 

372 SCROLL 

373 PRIHT "SONT ARRIVES." 
930 LET 1=I*C0 

998 LET Ce»INT (<<506>+IV10-D3v3-O2^5>*.75*<l+RND) 
1606 SCROLL 

1601 PRINT RB3 CO," HrtBITANTS" 
1610 IF C0<0 THEN GOTO 1020 

1011 SCROLL 

1012 PRINT "SONT VENUS S INSTALLER." 
1613 GOTO 1030 

1626 SCROLL 

1621 PRIHT "ONT OUITTE L ILE." 

1030 LET H=H*C0 

1040 IF H'. I THEN GOTO 2230 

1050 LET ce-e 

1060 IF S=S5 I HEN GOTO 1120 

1070 let go=ih"[ «pi/ieeeee>*S3J 

1080 IF C6'=S3 THEN GOTO 1180 

1030 LET CO-83 

1106 IF Ce*0 THEN GOTO 1120 

1110 SCROLL 

1111 PRINT "SUP VOS "(83)" HECTARES PLRNTES" 
1126 SCROLL 

1121 PRINT "VOUS AVEZ REGOLTE "-SJ-CO," HP. " 
1130 IF 00=0 (HEN GOTO 1160 
1146 IF 22>«2 THEN GOTO 1166 

1150 SCROLL 

1151 PRINT "<fl CAUSE DE " 

1152 IF -'2=0 THEN GOTO 1135 

1153 SCROLL 

1154 PRIHT "L AUGMEHTAI10H DE" 

1155 SCROLL 

1156 PRINT "LA POLLUTION.)" 

1157 LET Z2-Z2+1 

1160 LET C1*INT C(39*RN0*28>*<l+,23*<Ee+ei J/-28)) 
1 1 .V SCROLL 

1171 PRINT "CEUX-CI VOUS RflPPORTENl 

1172 SCRULL 

1173 PRINT HIT CCl»tS3-C0»*" 011." 
1188 LEI 11=11*1(11 '.CH'.S3-'.u < • 
1130 LET E'J = L1 

1200 IF E2<«10 THEN GOTO 1220 

1210 LET E2-10 

1220 LET E1-E2 

1221 LET C8-89-S 

"1230 IF C0<2 IHLTi GOTO 9999 
1248 IT C0'-26 THEN GOTO 1268 
1238 LEI C0"26 

1260 LET CO-INT tC0*5»K.52+.8*RM>» 
1270 LET Cl'Pl/imeflfl 
1260 JF CK-1 THEN GOTO 1300 
1230 LET Cl-1 

13 



1306 LET C1*C1*C8 

1318 SCROLL 

1311 PRINT "LE rOURlSME A PROVOOUE UN APRORT" 

1312 SCROLL 

PRIHT -DE 'Mill ' L'J-Cl ■ 



i LET I 



*lll 



1 UN . ■ 



5 I HEN GOTO 1438 
1346 IF PI -K- THEN GOTO 1430 
1350 SCRULL 

I _i'M PRINT "Ell IIETTE REGRESSION CAR • " 
1360 LET C2=1370*!OIIHT • RND«5+1 i 
15,-'0 G010 C2 
1388 SCROLL 

1331 PRINT "LES ROI 330(13 IIHGENT LE VENTRE" 
1382 SCROLL 
1333 PRINT "A L HIP. " 
1304 GOTO 14 iO 

1330 SCROLL 

1331 PRIHT "LE CHANT DES 0I8EAUX A D13RARU." 
1J52 GOTO 1340 
1480 SCROLL 

1401 PRIHT "L EHO RRESENTE ONE CURIEUSE. . . " 

1402 SCROLL 

1403 PRINT "TEIHTE VERT FLUORESCENT." 

1404 GOTO 1430 

1410 SCROLL 

1411 PRIHT "LES PESTILENCES OKI OECOURFCE" 

1412 SCROLL 

1413 PRINT "PECHEURS EI PLA13AHCIEPS. " 

1414 GOTO 1430 

1420 SCROLL 

1421 PRINT "LES FACADES DES BAIliiEHTS SONT" 

1422 SCROLL 

142; PRINT "OEVENOES OIUFORtlEMENT GRI3E3." 
1436 LET I15=INT CC8-C1) 

1431 LET P3=R1 

1432 LET P2='. 35-3 •*■ 33-3 v-M3r. 44 

1440 SCROLL 

1441 PRINT "LES TAXES PRELEVEES fWX INDUS-" 

1442 SCROLL 

1443 PRINT "-TRIELS S ELEVENT A "jT3j" Oil." 

1444 LET M-M+T3 
1450 IF P2>-8 THEN GOTO 1500 
1460 LET P1=IUT CP1+P2^2) 
1470 IF P1>=P0 THEN GOTO 1930 
1480 LET P1=P0 
1456 GOTO 1520 
1580 LET P1»INT (P1+P2) 
1510 LET P6=INT >.P0*P2-10J 
1526 LET T2=T2-1 
1530 IF T2>0 THEN GOTO 73 
1540 GOTO 8600 
2000 SCROLL 
2661 SCROLL 
2002 RETURN 

2100 SCROLL 

2101 PRIHT "I1AIS VOS CAISSE3 NE CONTIENHEHT" 

2102 SCROLL 

2183 PRIHT "PLUS OOE ")INT M." UN." 
2110 RETURN 
2206 CLS 

2216 PRINT AT 10,0;"VOUS AVEZ ETE RENVERSE, I 
T DAMS UNE PRISON..." 
2215 PRINT 

2220 PRINT "A N01NS DUE VOIRE SUCCESSEUR PARUH GESTE DE CLEMEHCE VOUS FHSSE EXPU 
L3ER DE L ILE." 
2230 GOTO 7000 
2246 CLS 

2241 PRIHT DO." RERS0NNE3 SONT I10RTES CETTE" 

2242 PRIHT "RHIiEE. VOUS ETE3- DE PAR VOS ERREUR3 ET NEGLIGENCES RE8P0HSR— BLE 
DE CE DESASTRE."- 

224.^ PRINT "VOUS AVEZ ETE RENVERSE. £T " 

2244 LET C0-2258+10«lNT (RN0*3J 

2245 GOTO CO 

d<: u J: PRINT "VOUS AVEZ ETE RENDU..." 

2251 GOTO 7000 

2260 PRINT "VOUS AVEZ SERVI DE GIB1ER DANS UNE GIGANTESQUE CHA38E A L HOTDE" 

'2261 GOTO 7000 

2>70 PRINT "MALGRE VOIRE FUITE DES BARBOUZESOE VOIRE E:;-RijrHOME VOUS ONT SU1V 
[ ET FR01DENI1ENT RBRT1U DRH3V0TRE PAYS D EXIL." 
2271 GOTO 7080 

22A\ PRINT "PLUS UN TIERS DE LA P0PULAT10NEST MORT DEPUIS LE DEBUT DE VOTR 
E SEPTEHHAT..." 

2232 PRIH1 

2233 PRINT "LES 2-3 RESTANT VOUS ONT LYNCHb. " 

2234 GOTO 7600 

2251 PRIN1 "LES TRAVAILLEURS 1MI1IGRES S0H1 EH MAJORITE. ILS ONI CHRSSES LESINOU 

3TR1ELS. PRIs COHIROLE DES USINfcS. VOUS OUT GHA33ES ET ONT PRIS LE CONTROLE DE 

L ILE." 

2300 GOTO 7808 

2310 CLS 




FINI — RE2 VOTRE VIE EN CR0UP1SSAH 



PRIHT "IL RE3TE DE L ARCEII1 DAN';. VOS D 
ONNES SOIIT MORTES DE ITISERt CE I IE HNNI-E." 

2312 PRIHT 

2313 PRIHT "LA POPULAT luN ESI DESCtNDUt DANSLfl RUE UT VOUS fl RCCULE 
E. . . " 

iL'}?Si GOTO 7000 

,-0OO PRINT Al 2o.O,"VijiJLtZ-VUOS REJOUER *" 

7010 JF IHKEV*-"" THEN GOTO 70N.i 

7020 IF IHKtY* = "0" I HEN RUN 

703O STOP 

8O0O CLS 

8010 PRIN1 TAB ?j "FELICITATIONS. .." 

B828 PRINT mi S.0;"VOUS VOUS ETES AVERES UN REHftR- -QURBLE GESTIONH 

8038 PRINT "Lh POPULATION VEU1 VOUS RENOU- -VELLER BR COM lANCK." 

6040 PRINT R( 20 J 0i o flCCEPTE2-VOUS UN AUTRE MANDfll : " 
8058 IF INKEY8*"" IHEN GOTO 8850 

SOfcO IT INI LYi -'■il" IHtN GOlO ,'0 

S07O STOP 

9808 8AVB "i [NCDOn" 

3010 RUN 



MALGRE CELA PLU3IEUR ■ I ERS 



REPRESENTATION 
DE DONNE ES pC A500 



Cette petite merveiMe de manipulation de donnees, qui 
tourne sur PC 1500 sans extension, correspond parfai- 
tement a notre demande de iogiciels "professionnels". 
Voila qui va faire de vous un virtuose de I'histogramme, 
des nuages de points et autres camemberts. 

G. HELFER 

Ce programme vous permet de saisir des valeurs (24 au maximum) 

el de les modifier, puis d'obtenir: 

Total, moyenne. minimum, maximum 

Calcul et edition de pourcentages 

Echange de blocs de donnees 

Classement sur la totalite ou sur un bloc (inverse, croissant. 

decroissant) 

Calcul decumu Is, sim pies ou mobiles entre 2 tractions del'ensemble 

Transposition graphique: 

Nuage de points 

Ligne brisee 

Histogramme 

Bandes horizontales 

Camembert 




DONNEES/GROPHES 

-S0ISIE 

-LISTE 

-H0D1FIC0TIONS 

-DEPLOCEHENTS 

-CLOSSErlENTS 

-P0URCENT06ES 

*NU0GE DE POINTS 
*LIGNE BRJSEE 
*rfJSTOGRP.!iriE 
*B0NDES H0R120NT. 
*COnErtBERT 

••noxJ, niNJ, noY. 

►REGRESSION LIN. 
►SITUATION CUriULEE 
+ CUT1ULS MOBILES 

21. ! I - 83 



I : 03=8(2) : 8(2)=8 
<Y): 8(Y)=A3. VI 
= 8i(2.' : ei(Z)=8 
•S(Y): 94(Y)=YS: 
RETURN 

2: TEXT : LF 1: 
USING : COLOR 
:END 

3:O3=8(2)*l90/Ol 
: RETURN 

1:GR0PH . 

GLCURSOR (20, 
) : SORGN : CSIZE 
l : Y=0: 05=0: 
RETURN 

S: "M ,- G0SUB 1: FOR 
2=1 TO 02: GOSUB 
3: Y=Y-20: LINE 
10, Y)-(A3, Y+20 
), , 3, B. NEXT 2. 
GOTO 3 

6: "N-GOSUB 1. A5= 
3: GOTO 8 

?: "L^GOSUB 1 

8: FDR 2=1 TO 02: 
GOSUB 3: Y=-20* 
2: LINE -(03, Y) 
, AS, 3: RUNE -( 
1, -1), 0, , B. 
NEXT 2 

3:LINE (0, Y)-(0, 
0)- (2I0, 0), , 0: 
COLOR I : FOR 2= 
I TO 02- Y=-Z*20 
: GLCURSOR (-20 
, Y): LPRINT 81( 
2): GOSUB 3 
IB: GLCURSOR (03-3 
1*JNT ((8(2;-l 
>/0l*2), Y): 
LPRINT 8(2): 
NEXT 2:Y=O0*J9 
0/0 1 .LINE (Y, 
)-CY, -21*02), 6 
, 2 
I ! : Y = 0. 05 = 0: FOP 2 
= l TO 02: Y=Y+a^ 
Z)*2- (02->l )*P0 
/2. 0.5=05+ (8(2) 
-OBW: NEXT 2 



12:03=02*(A2"2-I ) 
/12- 05=Y/J" (03* 
05): V^Y/03: 03 = 
,l 90/01 . 2=00- Y* 
(02+1 )/2: 
GLCURSOR (0, 0) 

13: LPRINT 0S*J 00: 
LINE (2*03,0)- 
( (Y*A2+2)*03, - 
20*02), 3: GOTO 
2 

20:"K"GOSUB 35: 
INPUT "07"; 05: 
FOR Y=O0IO 01 : 
POR Z=YT0 01 :0 
3=S(Y): !F 05*8 
(Z)>A5*a<Y) 
THEN 22 

21: GOSUB 1 

22: NEXT 2. NEXT Y. 
GOTO "U 

30- "C'GOSUB 1: 

GLCURSOR (90,- 
65): SORGN : FOR 
2=0 TO 30:Y=2*Jl 
/IS: LINE - (75* 
COS Y, 7S*S1N Y 
), , 2:NEXT 2 

31 .'FOR 2=1 TO 02: Y 
=8(2)/01*2*n+Y 
: LINE (0, 0)-(7 
5*C0S Y, 75*SJN 
Y), , 3:NEXT 2:0 
0=0: COLOR I 

32:FOR 2=1 TO P2:Q 
5=a(2)/fl1*TI: Y= 
OB+O5:O3=l0*( 
SGN (OBS (Tl-Y) 
-TI/2)-l ) : 00=00 
+ 2*05 

33: GLCURSOR (S0* 
COS Y+03, 50* 
SIN Y): LPRINT 
8S(2): GLCURSOR 
(22*C0S Y+2*A3 
, 75*SIN Y): 
LPRINT 8(2): 
NEXT 2: GOTO 2 

10: "B"GOSUB 1: FOR 
2=1T0 02. 
GLCURSOR (0, Y- 
8): COLOR I: 03= 
8(2)*35/0l : 
LPRINT 81(2);" 
" : 9 ( 2 ) 

11 : LINE (21, Y)-(6 
8, Y-03), , 3, B: V 
=Y-03:NEXI 2: 
GOTO 2 

SB: "S"FOR 2=1 TO 2 
5: 02=2-1 : INPUT 
"L?";8i(2): 
INPUT "U?";8(2 
):NEXT 2 

60: "U-Y=0- Q3=Y. 01 
= 0;FOR 2=1 TO 
2: 01=01+8(2) . 
0=01/02: IF 8(2 
)>=YLET Y=8(2) 

6) : IF 8(2)<=03LtT 
03=8(2) 

62--NEXT 2:0l=Y: 



avec eventuellement calcul et trace de la droite de regression 
lineaire. 

Saisie 

Visualisation liste 

Modification 

Modification nombre de donnees 

Echange de blocs 

Classement 

Pourcentages 



DEFS 
DEF V: 
DEF M 
DEF =: 
DEFX: 
DEF K: 
DEF F: 
DEF Z: 
DEF N: 
DEF L: 
DEF H: 
DEF B: 
DEF C: 



9/3.0 150 

10/1BO 6B0 
11/110 780 
12/120 850-* 

T 5710 

m 17S. 8333333 



TIUlS 

Nuage de points 
Ligne brisee 
Histogramme 
Bandes horizontales 
Camembert 



6/6. B 3B50 

7/7. B 3280 

8/8. B 3300 

3/3. B 3750 

I0/10B 1120 

ll/llB S27B 

12/12B 6210+ 
T 36520 



REMARQUES: 

II faut veiller a entrer les lignes en utilisant les abreviations, pour 

eviter de saturer le tampon d'entree. 

On peut imaginer un "moniteur" pour piloter ces ditferentes tonc- 

tions. Unexem pie succinct est donne (ligne 200-203). Danscecas. 

ne pas oublier de changer le end de la ligne 2 en return. 



FOR 2=1 TO 02: Y 
4=CHR* (13*(8( 
Z)=Y)-»15*(8(2) 
=03)+35*(8(2)= 
00)) 

63: LPRINT Z;'V";8 
i(2>; TOB 9; 8(2 
);Y».N£XT 2: 
LPRINT 'T"|(M: 
LPRINT "m";O0: 
GOTO 2 

70: -n"2=0: INPUT " 
VT' ;Z, "L?";9i( 
Z) 

7J : IF Z=0THEN "U 

72- INPUT "U?";8(Z 
) 

73: GOTO "H 

80: "F"F0R Z=l TO 
2- LPRINT 8J(Z) 
; TOB 6,'USING " 
«tttt.tttt",-e(2)/0 
1*100; "7.":NEXT 
2: GOTO 2 

30: "2"Y=0: INPUT •' 
n?";02:FOR 2=1 
TO 02:Y=Y+8(2) 
: 8(2)=8(2+02)- 
8(Z): 84(Z)=8S( 
2-»P2)--NEXT Z 

91. LPRINT "C";Y: 
FOR 2=1 TO 02:9 
<2)=Y+8(2): Y=S 
(Z):NEXT 2: 
GOTO "U 

9S:O0=J :01=02: 
INPUT '■D?";O0 

36: INPUT "F?" lAJ 

97: RETURN 
100: "=" INPUT "n?"; 

02. GOTO "U 
1B5: "X"G0SUB 95:01 
=00: INPUT "d?" 
;01 
I 06: FOR 2=0BT0 0) i 
Y=A1+2-A0: 
GOSUB l:NEXT 2 
: GOTO "U 



STOTUSl 

nEn 

TOBLEOUX 
DISPONIBLE 



200: 



'D"INPUT "T 
e?";?*. LPRINT 
2-«: GOTO 202 

201 : END 

202. INPUT "JOB?"; 
4: GOSUB vj. 



tr 



GOTO 202 
2B3:GOT0 200 

I2J310. 4307 

Prod, mensue i les, 
en 1 000 art ides, 

1/1.0 500 

2/2.0 120 

3/3.0 500 

1/1.0 180 

S/S.O 530 

6/6.0 380 

7/7.0 100- 

8/8.0 >2B 

9/3.0 150 

IB/ 100 6BB 

Jl/110 28B 

12/120 8S8 

13/l.B S50 

11/2. B 180 

1S/3.B 13B 

16/1. B 5BB 

17/5. B 580 

18/6. B 1S0 

13/7. B 1S0 

20/8. B 100- 

21/3. B 150 

22/10B 670 

23/1 IB 85B 

21/12B 91B+ 
T U32B 
rn 196. 6666667 




CO. reseau repr. 

en IB mF 

l/GH 8B- 

2/GB 22B 

3/JdU 170+ 

1/PB 225tl 

S/JnP 35 

6/DB 210 

T 1350 

m 225 




C I as s ement deer . 

1/JMU 170+ 

2/GB 270 

3/PB 225*1 

1/DB 210 

5/JHP 35 

6/GH 80- 

T 1350 

m 225 



B i I an s i mp I ; f i e, 
Pass i I, en mF 



1761 
.30 







TlrtE 112113.0953 
+++ G. HELFER +++ 



loniteur pour S/P 
DONNEES/ GROPHES 




I/Cap 1000+ 
2/LHT IIBB 
3/CT 18BB 
1/Ben 
T 77BZ 



l/l . o 
2/2. 
3/3. 
1/1. 
5/5. 
6/6.0 
7/2.0 
8/8. 



500 

120 

500 

180 

530 

380 

100- 

120 



Prod, cl 



,lee, 



I / 1 . B 550- 

2/2. B 1030 

3/3. B 1520 

1/1. B 2H2Z 

5/5. B 2600 



Cumu I s mob i les O-B 
droite de tendance 
coe f ( . corre I at ion 

C 57 10 

1/l.B 5760- 

2/2. B 5820 

3/3. B 5810 

1/1. B 5830 

5/5.8 5880 

6/6. B 5350 

?/?. B 6000 

8/8. B S380 

.9/3. B 5380 

10/10B 6050 

ll/llB 6120 

12/12B 6210+ 

T 21330 

m 5319. 166667 






Historique Res Exp 
d une s oc i e t e, 

en mF 

l/«72 500 

2/073 130 

3/tl71 35B- 

1/H75 620 

5/K76 7BB 

6/H77 330 

7/H78 I IBB 

8/1473 36B 

9/H80 1320 

I0/tt81 1100 

J1/A82 1610+ 

T JB010 

in 310 



Suite de la page 1 



Patois basic 



Donne le code ASCII du caractere sur i'ecran 
(position X,Y} 
Haute resolulton : 200 lignes, 240 colonnes 



Les possibilites d'Onc sur les plans graphique el musical nous 
imposenl de trailer les caracteristiques de eel ordmaieur en deux 
parties. Les particularites liees au systeme et a I'interpreteur (ins- 
kuclions) seront done publiees dans le numero suivant. 

ORGANISATION DU GRAPHISME ET DU TEXTE : 
L'Oric dispose de Scouleurs. Ink et paper permettent respective- 
ment de fixer la couleur de "I'encre" et la couleur du fond, en mode 
texte ou en mode graphique. Le mode texte peut etre utilise pour les 
graphiques basse resolution. II existe deux jeux de caracteres. Tun 
standard (alphabet...). I'autre redetmissable (graphique...). 
Trois modes d'utilisation de I'ecran: 

- Texte 

- Graphisme basse resolution 

- Graphisme haute resolution 

Texte: 26 lignes, 38 colonnes 

TEXT Mode texte efface I'ecran 

PLOT Positionne le curseur 

CLS Efface I'ecran 

Basse resolution : 27 lignes, 39 colonnes 

LORES Efface (fond noir) et mode graphisme 

Lores Jeu de caracteres standard 
Lores 1 Jeu de caracteres auxiliaire 

PLOT Ecriture de caracteres 



HIRES 

CURSET 

CURMOV 

DRAW 

PATTERN 

CHAR 

CIRCLE 

POINT 

FILL 



Efface (fond noir) et mode graphisme 
Deplacement absolu en X,Y 
Deplacement relatif a la derniere position 
(amplitude X.Y) 

Trace une hgne a partir de la position du cur- 
seur (relatif. amplitude X.Y) 
Modification du mode de trace : point, lie. 
continu,,., pour draw 

Afliche du texte en dehors des 3 lignes reser- 
vees (code ASCII) 
Trace un cercle a la position du curseur (rayon 



a fix 



Renvoie la couleur (fond ou encre) d'un point 
(0 = fond, 1 — encre) 

Remplir une zone (pave) avec une couleur etun 
motif determine 
Les instructions : 

- CHAR 

- CIRCLE 

- CURMOV 

- CURSET 

- DRAW 

possedent un parametre note FD (dernier parametre) qui permet de 
fixer la couleur desiree suivant les codes : 

couleur du fond 

1 couleur de I'encre 

2 couleur inversee 

3 pas de couleur. 
L'instruction CHAR s'ecrit : 
CHAR X.S.FD 



ou X represente le code ASCII du caractere 

et S (0 ou 1) le jeu de caractere selectionne 

L'instruction FILL s'ecrit 

FILL A.B.N 

ou A et B representent le nombre de zones el de rang6es 

et N une commande prefixee parmi les suivantes: 

- Modification couleur de fond 

- Modification couleur de I'encre 

- Caractere simple hauteur 

double hauteur 

- Alficriage fixe 

- Affichage clignotant 

- Graphique 

- Jeu de caracteres 1 

- Jeu de caracteres 2 



SONS ET MUSIOUE: 

Oric beneficie d'un composant qui peut synlhetiser 3 notes diffe- 

rentes simultanement ainsi que des sons divers. 

Certains sons sont inclus comme instruction dans le basic : 

ZAP Sifflement (arme galactique) 

SHOOT Simule le bruit d'une arme a feu 

EXPLODE Simule le bruit d'une explosion 

Les autres instructions sont les suivantes : 



jit (canal, periode. 



SOUND C.P.V qui produit 

volume) 
MUSIC C.O.N.V donne une note pure (canal, octave, note. 

volume}. La note est codee de 1 a 12 a partir de 

do, en tenant compte des alterations 
PLAY S.B.E.D agit apres music (son, bruit, enveloppe. duree. 

0.0,0,0 = stop) 



BELOTE f %702 




REBELOTEet Dix deder! 

Inutile de vous preciser la regie du jeu ! 

Lisez quand meme le mode d'emploi et... bonne chance! 

A. FAUVET 



Mode d'emploi 

FaireFl P0, apres I'affichagede" BELOTE ». La machine vous demande si 
vous voulez utiliservotre imprimante. Si oui. appuyezsur - ■■ puis EXE. si 
non, appuyezsur uneautre touche, puis EXE. Si vous n'avez pas branche 
ou n'avez pas d'imprimante. mieux vaut se munir d'un papier et d'un 
crayon pour noter les carles que la machine vous donnera. Puis, vient 
I'atout. Si vous en voulez. repondez par 1 EXE, puis voir chapitre deux. 
Vous ne prenez pas : faites EXE, la machine prend la main. Si elle veut 
bien de cette carte, elle dit « JE PRENDS <>. Sinon, vous devez choisir la 
couleur de I'atout : repondre si vous passez, 1 pour tref le, 2 pour carreau, 
3 pour pique, 4 pour cceur. Si vous passez. la machine donnera la couleur 
de son choix ou repondra deux et on recommencera la distribution des 
cartes. 

Vous avez la main, la machine vous demande ■ carte ? -. Vous ne vous 
rappelez plus des carles que vous avez en main, repondez par EXE. la 
machine vous redonne vos cartes qui restent dans le jeu, puis redemande 
■ carte ? -. pour donner la carte que vous voulez. il faut rentrer la carte 
sous la forme (nature, couleur), exemple AS DE TREFLE^ 1.1 





AS RO! 


TREFLE 


1.1 2.1 


CARREAU 


1.2 2.2 


PIQUE 


1.3 2.3 


COEUR 


1.4 2.4 


Alors done 


vous rentrez la carle 



DAME VALET 



3.1 
3.2 
3.3 
3.4 



4.1 



4.3 



10 
5.1 



5.3 
5.4 



6.4 



a carte sous la forme X, Y et la machine vous 
retail voir votre carte en clair, puis donne toujours en clair sa carte. Selon 
que vous avez fait le pli ou pas, elle vous demandera •• carle ? " ou vous 
proposers une de ses cartes. 

Les belotes et rebelotes. comme les dix de der, se feront automatique- 
ment. En fin de partie, les points de chaque adversaire s'affichent. en 
premierceux de CASIO, puis ceux du joueur. De plus, vous ne pouvezpas 
jouer une carte que vous n'avez pas, la machine vous redemandera 
immanquablement ■■ carte ? -. 



YRR: 4S PRS; 1528 

F8: 448 STEPS 

1 VBC -. H=3:HftIT 5 
8:PF:I "BELOTE": 
IMP "I!IP|!1 0/K" 
,!iIF S="fJ";H=7 

2 FOR !=6 T8 15 

3 RUMH! (RRHt* 
fcHWIHT (RfiKt 
t4Hl).'!8:IF 1= 
8 THEN 8 

i FOR 1=8 10 Mi 
IF flU)=fiU> TH 
EH 3 

7 HEiT J 

8 NEST !:SS="»E " 
3 FOR 1=8 TO 4:eS 

8 IliHODE H:PRT 
t;RS;8(:(OT I 

13 I=5:6SB tl:D=FR 
80 85: PR! "FTI0U 
TM;Mi»!» 
Cilf C=6 THEN 3 
8 

26 FOR 1=5 TO 7:6S 
8 II: PR! S;RS;B 
>:HEXI IS6S6 13 

38 FOR 1=1! TO 15: 
838 I2:T=W:HE 
XT J:lf T<25iPP. 
T "U.HE":60TO 48 

46E=fi5ifl5=E0;B8=E 



:PRT "JE PREHDS 
"=S0TO 26 

43 IliP "COOLEliR/H" 

,»:D=ll/|BiIFD* 

8 TKEH 26 
74 FOR 6=.! TO .4 

STEP . 1 
76 FOR .1=11 TO 15: 

6SE KiV=Y«iHE 

XT J: IF »F;F=» 

:6=D 
86 NEXT D:D=6:IF F 

<25;PRT "BEUZ": 

60TO 1 
88 I=!6:B6=D:6S8 i 

l:PRT B:60IO 4 



Pi: 217 STEPS 

1 IF FRfiC R(IJ=. ! 
:Bt="TREFFLE":6 
0T0 5 

2 IF FRflC fitl)=.2 
;Bt="CfiRREBU':S 
0T0 5 

3 IF FRfiC fl(!K3 
JB*="PIfiUE":SOT 
05 

4 Bi--"COE0R" 

5 IF IKT R(I>li» 
="fiS ":RET 

6 IF IHT fi<D=2;S 
="R0! "JRET 

i IF IHT RdWS* 
="0filtE ":RET 



8 IF IKT »(I)=4!$ 
="Vfit£T ":RET 

1 IF IHT »<I)=5i« 
="18 ":RET 

18 S="9 ":RET 

P2: 138 STEPS 

2 Y=8:IFfl!JK2;V 
=tlsRET 

3 IF BUX3;Y=4sR 
ET 

4 If fl(JX4;V=3:R 
ET 

5 IF IHT 8U)=5;V 
=18:RET 

6 IF FRfiC fiUXB 
THEN 9 

7 IF IHT R<J)=4iY 
=28:RE! 

8 Y=!4:RET 

9 IF IHT S!J)=4;7 
=2 

II RET 

P3: 725 STEPS 

1 IHP "CBRT",L:IF 

L=8 THEN 52 

2 FOR 1=8 TO 7: IF 

fiCIHL THEH 5 
3E=I:!F FRfiC L=0 

iff IHT (U2)=I 

:fi=R+l : IF fi=2lP 

=Pt26 
4 6SB tl:PRT S;Rt 

;BC6OT0 K*6 



5 HEXT 1: 6010 1 

6 0=38*8 

7 FOR J=8T0 15: 1 
F fi!J)=8 THEH I 
7 

9 IF FRRC (UJ)tFR 
AC L THEH 17 

18 6SB I2:F=J:T=V: 
J=E:SSE I2:-J=F: 
If T>V THEN 46 

16 IF KUiM:Z=F 

17 HEXT J 

18 IF U*38;F=2:K=2 
8:6010 46 

28 FOR 1=810 15:1 
F RU)=8 THEH 2 
3 

21 IF FRfiC fl!J!=0; 
F=):60t0 46 

22 6SB Kiff V<UiO 
=»:F=J 

23 HEXT J:X=28:60T 
46 

24 J=E:6SB t2:P=P* 
V:fl(E)=0:]=F:6S 
8 EsMWfKF) 
=0:X=8 

25 FOR 1=8 TO 7: IF 

R(I)*B THEH 1 

26 HEXT I:pRT OiP* 
18:EHB 

2? FOR 1=8 TO ?:V= 
8: IF R(l)»9 THE 
H3B 

23 HEXT l:PRT 0+18 



ERRATA FX 702 P 

Dans la lisle des variables du 
programme Prince des anneaux 
du N° 13, il manquait S — vive le 
prince des anneaux. 



IPIEHD 


fi 


38 FOR J=8 10 15: 1 




f R<J)«6;8=J!6S 


BBtlE BE CfiRREflll 


8 12: If y>VJV=Y- 


R01 BE COEUR 


:f=J 


10 DE CRRREBB 


31 HEXT j!|!=lilF V 


9 BE CARREfi'J 


=8;f=0 


DftKE BE PieUE 


32 60TO 46 


RIODI 


34 K=8: IF FRfiC fl!E 


SOI BE PISUE 


)«FRfiC fl(f) THE 


■> 


H38 


8 


35 J=E:6SB12iIf V 


JE PREHBS 


>T THEN 44 


DRUE BE IREffLE 


36 6010 24 


9 BE COEUR 


33 If fRflC fi(E!=B 


VfllET BE TREffLE 


THEN 24 


CfiRT? 


44 J=E:6SB 12:0=0* 


1.1 




CfiRT? 


8 R:0=0+YiH(F) 


8 


=9:60TO 27 


SfiHE BE CfiRREfiO 


46 I=f:8S8 fl:PRT 


801 BE COEUR 


!iR*lBS:IF FRfiC 


18 BE CRRREfiU 


»(!)=0llf IHT 


9 OE CSRREflU 


(fi«I)/2)=!;N=N* 


BRHE OE PIOOE 


1 


DfiHE BE IREffLE 


47 If N=2i0=0*26:N 


9 BE COEUR 


=8 


WET BE TREffLE 


43 If X=i;K=28:60T 


CfiRT? 


1 


3.2 


53 60TO 44-K 


DRUE BE CRRREfiU 


52 fOR 1=0 TO 7: If 


86 BE CfiRREfiO 


fi(!)=8 THEH 58 




54 6S8 Jl:PRT 1;R! 




m 


9 DE PIOOE 


50 HEXT I:B8T0 1 


CfiRT? 



JEU DU PIEMONTAIS 



Programme de jeu tres simple. C'est un jeu de nasard, trois 
objets : une pierre, des ciseaux et une feuille peuvent etre 
choisis par I'ordinateur et le joueur. Les couples ainsi formes 
determinent un gagnant car les ciseaux coupent la feuille, la 
pierre ebreche les ciseaux et la feuille enveloppe la pierre. 
Ce jeu etait joue par les emigrants italiens i! y a une trentaine 
d'annees. 

Le programme est ecrit a. I'aide du basic 5025 de SHARP pour 
un MZ80ou un MZ700. 

Daniel SOMMIER 



! F>EI1 'iOMMIER DfiNIEL I? PUE CE PEIMS 69503 BPON 

2 PEH SHflPP HZ 36 

!0 PEH BASIC 5025 SHflPP 

20 PEH JEU L€ Lfl. PIERRE. W CISEPiU ET t-E Lft FEUILLE 

T0 PRIKT"I****»**+***JEU C'U PIEHOMTfllS* **"**+*+**■ tflOSUB 630 

40 PPIMT-SCE JEU EST IRES SIMPLE I TROIS OWETS SONT HIS EM PRESENCE DEUX '•: 

50 PPIMT"0 DEUX.PfiR L ORDINRTEUR EI LE JOUEUR." 

60 PRIUT-Uf) CISEfiU." 

79 PPINT"UHE PIERRE." 

m PRIMT-UIIE FEUILLE DE PflPIEP" 

?9 PRIMT"Lft FEUILLE ENUELOPPE Lft PIERRE OUI EBRECHE LE CISEfiU OUI EMTftlLLE" : 

100 PPIHT" LCI FEUILLE." 

110 RRMIT-LE JEU COMSISIE ftCHOISIP Ull OBJET COIITRE L'ORDIIWTEUR ET ft Cfi.jNEP ' 

120 PPINT-'DES POINTS. BONNE CHfiHCE ! " 

130 PRIHT'SCOmEHCOHS LE JEU." 

140 pp IHT" »***+**************+********** ********+*":fJOSUB630 

150 DIM fir<3)!ft*a> = "PIEPPE M :fii<2> = "CISEf'U":i'iI': • =- ' FELP I LLE " 



I -I 



J-S 



170 N=IMTM»RIID'H>HF N=0 THEN 170 

180 PPIHT-BCHOISISSE2 UN DES OBJETS: - 

l'« PPIHT"1-PIEPPE" 

20© PPII^^-CISEOU" 

210 PRINT-3-FEUILLE" 

220 IH^UT-THPEZ LE CHIFFPE CQPPESPONDftUT: "tKiGOSUB 630 

230 IP N-K THDI PPIHT*IB****»*#«»»****»**»MUL*«**«»»»**»*****»«»"iGOTO I 




i N=H« 10+t: 

I IF(N=12>+(H=23>+(M=31>THEMI=I+l!Q0T028fl 
I IF<N=13)*OI=21>+CM-32>THENJ=J*i:GOTO280 
1 GOIO390 

i PRINT "E++***** ' < i'hh -I t-.iTif'E* » * •** »■♦+■! * *• * • ► • * ":GOSUB 636 
I PRINT TflB(9)sft*(<H-K)/I0)STflB<29)sfif<K>i"D":M=0 
I IF H=12 GOSUB4hQ:GOSU86I0:M-20:GOSue510:GOTO36e 
I IF 11=23 G0SUB510:&0SUB6u:i:n = :ri:i- 3 OSiJ&'i60:GOTO3t.& 
I IF N=31 GOSFJB5'i.O:iiOSUB'i,lO:l^2O:MS!Jt:4'f-0iGOTO36O 
I IF M=13 GOSUB-lMi:GOSiJE:610:n--;:tj:b.OSi.'i;.5'-.0:GOTO 370 
) IF N=21 GOSME:':.lO:r J oyjL:.iIO:n = :0:GOSUE:-!.J,O:GOTO 370 
I IF 11=32 GOSUE5t-0:GOSiJB6Kiil1=2v!:w;.UE5lO:GOTO 370 
I GOSUB 650 

i PRIHT'BOROIHfiTEUR»*lI 
I PRINT-JOUEUR ="!J 

IF <KI0)*(.J<19JTHEH 175 

> IF 1 = 10 THEN PRINT-CCB J "CI I 6fiGHE"sGOSUB650 

I IF J=10 THEN PPIHT"EUOUS flUEZ GfiGNE.JE DEMANDE R PRENDRE Mrt PEURNCHE.' 
) pp I NT" ED************************************ ****": GOSUB 630 
i PRINT XILEZ-'JOUS: " 

> PRINT'-l-FflIPE UNE NOUUELLE PRRTIE?" 
I PRIrtT"2-fiPPETER LE JEU?" 

t IHPUT-UTHPER LE CHIFFPE CORRESPOHDOHTs "sfl 

> IF fi=l THEH 30 
! EI4D 

I PEM PIERRE 

I pp i mTHBtio+M> I"***" 



430 PPINTTRB<10*M>! 



510 
520 
530 
540 
5S0 
560 
570 
580 
399 
608 
610 



PRIIITTPB' 10«M>;'"«r H 

RETURN 

PEM CISEAU 

PPINTTfiB<10tM>;"\ /■ 

PRINTTRB<IO+M>i'* X « 

PRINTTFiB':l0H1>:"O 0" 

RETURN 

REM FEUILLE 

PRINTTHB(10*M>I ■"*■•■* " 

PPINTTfiB(I0»M)l" 'Vn»k- 

PPINTTflB<10+M)i" Wk" 

RETURN 

PEM PETOUR fl Lfi LIGNE Dfi DEPORT 

PRINT-DBBO" I RETURN 

USR<62) 

RETURN 

CI-"CI"CEflTECrflCE"" 

TEMPO 4:MUSIC C* 

RETURN 



tf 



tf* 
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LE LOGICIEL 
DE LA SEMAINE 



PLEIN AUX AS 

...sur TEXAS Ti 99/4A 




Le but dujeu est, bieri entendu. 
de marquer le plus grand nom- 
bre de points. Sera declare 
gagnant le premier joueur a 
altemdre le seuil fatidique des 
cent points. 

Vous devrez (aire appel a votre 
memoireet. pour les plus calcu- 
lateurs. aux probabililes. 
-PLEIN AUX AS"estun jeude 
reflexion, qui allie a la fievre du 
POKER la tension du BRIDGE 



On ne peut que regretler la len- 
teur relative, duesansdouteau 
Ti BASIC, de ce jeu dote d'un 
bon graphisme et d'effets so- 
nores ponctuant vos succes. 
PLEIN AUX AS. auteur; PEW- 
TERWARE. che2 INFO- 
GRAMES. TEXAS TI 99/4A. 
version de Base. 



Pierric GLAJEAN 



CA NE SE PASSE PAS A 
MACAO, mais AU TEXAS, ou 
PLUTOT SUR LE TEXAS, avec 
la configuration de BASE, un 
magnetophoneetunecran {Tres 
pratique !) 

Apres les tormalites d'usage. 
nombre et noms des joueurs. 
vous etes entraines dans la fie- 
vre d'un POKER pas com me les 
autres. 

En effet. le jeu consiste a com- 
biner les cartes tirees au hasard 
par I'ordinateur sur une grille 
affichee sur I'ecran. 
La grille est constituee de 5 
lignes et 5 colonnes. Les com- 
binaisons que Ton peut realiser 
suivent les (dures) lois du 
POKER classique (double pai re, 
brelan, suite, etc.). 
La ou reside la difficulty, et 
done I'interet, e'est que vous 
pouvez combiner les cartes 
horizontalement, verticalement 
ou en diagonale. afin d'obtenir 
les meilleurs scores 




PETITES ANNONCES 
GRATUITES 




URGENT. VENDS SHARP PC 
1500 (juin 1981) -f Interface 
imprimante CE 150 (septembre 
1981) ■+- divers programmes. 
Materiel excellent etat. Cede 

2 400 F. Pierre LOTZ, 70. rue de 
Levis 75017 PARIS. Tel.: 
763.87.85 apres 20 h. 

VENDS C.D.E. TO 7 + BASIC 
-f Melodia -f- magneto K7 = 

3 000F. TXRX IC730 toutes 
bandes amateur 5 000 F. tel. 
(61)74.30.18. 

VENDS TI 99/4A + 2 logiciels 
4- K7 de programme + cordon 
K7 -}- Joystick + livres TI ou 
echange contre TVC (23 cm) ou 
Cont. Imprimante VIGEAN- 
RIOLS 34220 ST PONS (67) 
97.11.80. 

VENDS ZX 81 + RAM 16K + 5 
K7 de jeux simulateur de vol. 
gulp, etc. -f- 2 livres » piloter 
votre ZX 81 •■ etc. le tout 900 F. 
BOUSSARD Roger, 33, rue des 
Peupliers 75013 PARIS. Tel.: 
588.24.66. 

ACHETE pour TI 99/4A le 
module extensed Basic, magne- 
tophone a cassettes, syntheti- 
seur de parole, les cassettes 
■ apprendrele basic "etconseil- 
ler financier et modules Foot- 
ball, Space invaders, Munch- 
man.VOLTO Patrick, 3, alleede 
Quebec 33600 PESSAC. Tel.: 
(56) 36.55.51 (demander 
Patrick). 



VENDSHP41 C-(- module MEV 
simple -+- Module X fonction -\- 
ModuleTime + Manuels le tout 
2 800 F. Tel. : (91) 51.26.63. 



ACHETE pour TI 99/4A, Baste 
Etendu. JOSNIN Luc. La Noe 
Nozou 44860 ST AIGNAN DE 
GRAND LIEU. 

VENDS TRS 80 OFFRE EXCEP- 
TIONNELLE. modele PC 2 
(semblableau PC 1500)1 100 F. 
Achete le 8/83. Ecrire a Jean- 
Jacques 103. rue de Neuilly 
93250 VILLEMOMBLE OU tel. 
528.88.40. 

Possesseurs d'ORIC 1. que me 
proposez-vous en echange ? Je 
possede: CHESS. POKER. 
MASTERMIND. ZIG-ZAG. DES- 
TERITE, JACKMAN, 3D MAZE, 
BREAKOUT, BATAILLE NA- 
VALE, PUISSANCE 4. INVA- 
SION, VOL OR I C, MANOIR DU 
DOCTEUR GENIUS, XENON. 
THE ULTRA, ZORGON, MAR- 
RIER. VANDEPUTTE B. 1 LE 
BOCAGE59131ROUSIES.T6I. 
(27) 65.18.18 apres 18 h. 

VENDS SHARP PC 1500: 
1300F. CE 150 (imprimante) 

I 300 F. CE 155 (8 Ko RAM) 
300 F, CE 159 {8 Ko RAM prote- 
gee) 900 F. CE 153 (tablette 
digitale) 900 F -j- papier + stylo 
-f programmes-!- livres + mal- 
lettes : le tout 5 300F. CHER- 
CHE contact utilisateur APPLE 

II ou HE pour echange d'ideeset 
de programmes. M. LEMOINE 
Joel, 2, rue Albert-Leyge. bat. 
28, esc. 2. 95340 PERSAN. 

VENDS TI 59 (8/80) tres bon 
etat emballageongine 40 cartes 
manuelles. nombreux program- 
mes et plusieurs livres traitant 
de la TI 59. 650 F le tout. 
RECHERCHE lumieres et lous 
documents sur Langage 
Machine de microprocesseur 



SC 61869 AOl du PC 1251 1 " 
version Documents renvoyes 
tres rapidement VERTENTE 
Robert. 8. rue des Mamaudes 
93250 VILLEMOMBLE Tel 
244 06.02. (Heures bureau.) 

VENDS Ordmateur jeu C 52 
PHILIPS -r 6 casseites dont 
PAC MAN. pnx 900 F. parfait 
etat. LERICHE Senoit. VER- 
SAILLES. Tel.: 951 15.58. 

VENDS SHARP PC 1 500 achete 
10/83 (sous garantie) parfait 
etat -f- livres de programmes 
pour 1 300 Fie lout. FJOSTEDT 
Marc. Tel.: 579.26.73. 

Vends TI-99/4 A + prise PAL + 
cordon magnetophone + ma- 
nuel (achete nov. 83: 1900 F) 
vendu: 1100 F + 11 mois de 
garantie. Etienne RUFF 1. rue 
Oeserte - 67000STRASBOURG. 
Tel.: 16 (89) 27.27.58. 

Vends imprimante SHARP PC 
1500 + imprimante (CE 150) + 
module 8 Ko (CE 1 55), etat neuf : 
3000 F. Emile AZULAY 23. bd des 
Cerisiers - 13012 MARSEILLE. 

VENOS APPLE HE (3/83) sous 
garantie + lecteur disque ■+• 
Moniteur PHILIPS AMBRE : 
10 000 F, avec jeux et livres. 
JAMBOIS Noel. 82, rue Fbg 
Poissonniere 75010 PARIS. 
Tel. : 246.95.11. apres 18h. 

Echange K7 de programmes 
pour TI 99/4A avec ou sans 
Basic Etendu. Lisle sur demande 
contre 2 timbres. PELLOUX 
Patrice. 8. rue de Alles 38230 
CHARVIEU. 

VENDS Listing des codes 
machines de la ROM du ZX 81 
contre 60 F. par cheque. BEAU- 
PERTUIS Yannick LE DUEL- 
LAS. 24700 SAINT-MARTIAL 
D'AUTENSET. 

ORIC 1 48K Echange CENTI- 
PEDE, CASSEBR I QUES, LAB Y- 
RINTHE 3D, contre autres pro- 
grammes, jeux ou utilitaires. 
Ces programmes sont des 
copies de cassettes achetees, 
valeur 280 F. BENISTY Eric. 
Tel. : 698.06.21 (apres 18 h). 

VENDS CASIO FX 702 P (piles 
neuves) -f Interface K7 : FA-2 
sous garantie. Etat impeccable. 
Letoutl 190 F.ROYERAiain,8, 
rue du Langevin 45140 ST- 
JEAN-DE-LA-RUELLE. Tel. : 
(38) 88 27.64. 



RECHERCHE lous programme 
sur K7. sur logiceis ou toutes 
extensions perrphenquM Pour 
eveniuel achai ou Act 
s'adresser au 785 49 30 en 
Moselle BORTSCHER Patr.ck. 

VENDS SPECTRUM 48K. PAL 
adaptable SECAM, neuf | K7 
de presentaiion -+- Nombreux 
programmes (livres. magazines 
bntanniques) + manuel Prix 
WOOF. LIEB J.-Pterre. 13 bis 
fueduCloseau 94350 VILLIERS 
Tel : 305.41,93. 

VENDS CANON X07 | X 710 
(imprimante 4 couleurs graphi- 
que) + Carte memoire 4K — 
Logiciel ■ GESTION DE Fl- 
CHIER ■ sur carte memoire 
ROM -f- Cordon magnetophone 
Valeur Neuf 4 200 F. vendu 
3 800F GOMES Jose. Tel 
304.63.46 apres I9h30. 

VENDS double disquette C8M 
4040 avec cable CBM-IEEE + 
3 000 programmes CBM dont 
PEETSPED, DLT COMPILER. 
VISICALC 4000, tous les pro- 
grammesde PROCEP. langages 
LISP. COMAL. ASSEMBLEUR 
FORTH 4. LOGO PASCAL, etc. 
(au total 65 disquettes). pnx 
7 500 F. WEISSL1NGER Gabriel 
73. rue du Maire 57400 SARRE- 
BOURG. Tel.: (8) 703.37.57 
entre 12 et 13 h. 

HEBDOGICIEL recherche utili- 
sateur GOUPIL en vue collabo- 
ration. Ecrire au journal Refe- 
rence GP 14.84. 
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CHOISISSEZ LE PROGRAMME 



9 Texas Instruments 



CONSOLES ET ACCESSOIRES : 

PHC O04ARG8/FR Ordrnateur familial TI 99/4 * 

PHA 2036 Modulalcur PAL-UHF ■ 

PHA 2101 Modutateur SECAM 

PHA 2622 Cable liaison magnelo -cassettes 

PHP I 100 Pair i? manctles jeux ■ 

PHP 1 500 Synthetiscur de parole 

PHP2700 Magnetophone cassettes ■ 

PERIPHERrOUES : 

PHP 1200 SyMemed'eircminnperipherique ■ 

PHP 1 220 Cane interface ftS 232 ■ 

PHP 1210 Cane com to leu r dedisquette. 

PHP 1250 Unite integrc-ededisctueue • 

PHP 1 260 Cane d'extension mev ■ 

[RAMJ 32 K. 

PHP 1 850 Unite de disquette externe ■ 
EDUCATION : 

PHr6l25/FR PGCD-PPCM. 1 

PHM 31 15 Add n ion -Canon 59 

PHM 3 1 14 Crocodile savant 58 

PHT6067 Baste par soi-meme 17 

PHM 3003 Beginning Gramma' 5 

PHM 3082/7 Computer math games ■ 66 

PHM 3 1 16 Drvrsffln-demolttion 60 

PHM 3019 Division I ■ 67 

PHM31I7 Dragon Savant 61 

PHM 30 1 5 Early Reading 1 

PHT6OI0 Jeu/ d'Enuep rise 65 

PHM 3 1 1 9 Meteor multiplication 63 

PHM 3118 Mission moms 62 

PHM 3029 Multiplication 1 . 3 

PHM 3020 Music Maker 14 

PHM 3004 La magie des nombres • 6 

PHM 3000 Numeration f • 68 

PHM 300 1 Numeration la 69 

PHT 60 19 Le basic etendu par yji-meme ■ 18 

PHM3I09 fl-logoH. 70 

PHT61 16 Introduction a la prrjgrarrimationl«77 

PHT 6 1 1 7 Jnli'jdn' ii'jn .'i l.i p'ngr.imma(ionll«78 

PHI6I 18 Jeu* en basic I • 79 

Jeux en Basic If • 80 



PHT 6 I !9 

loisirs 

PHM 3056 
PHM 3030 
PHM 3033 
PHM 3054 
PHM 31 10 Chisholm Trai 



AMa/e-Ing ■ 
IJI.Kfcj.MX arid poker ■ 



T.T.C 

I 190.00 
743.00 
500.00 
ISO.00 
255.00 
680.00 
496.00 

990.00 
1 . 1 30.00 
I 490,00 



131.00 
! 34.00 

66.00 
[34.00 
I 34.00 
1 34.00 
I 34.00 
134,00 
134,00 

66.00 
134.00 
134.00 
131.00 
188.00 
131.00 
1 31.00 
131.00 

66.00 
795.00 
119.00 
119.00 
119.00 
119.00 

131.00 
1 34.00 
134.00 
134.00 
1 31.00 



PHM 3038 Connect lour 

PHM 3037 Hangman. 

PHM 3023 Chasse au Wumpus 

PHM 3034 Hustle • 

PHM 3024 Football 

PHM 3025 Jeux video tl 

PHM 3057 Munch Man ■ 

PHM 3067 Othello 

PHM 3 1 1 2 Pariec 

PHM 303 1 The attack 

PHM 30S3 Ti-lnvaders > 

PHM 3052 Tombitone city 

PHM 3008 Jeu d'echecs 

PHM 30 1 8 Jeu video I 

PHM 3039 Yahu-ee 

PHM 301 1 T Adventure ■ 

PHT60I5 Jeux Retro I 

PHT 60 1 7 Jeux Retro It 

PnOGRAMMATION : 

PHD 500 1 Fichicr d'adreiscs 

PHM 3 1 13 Microsoft Multiplan ■ 

PHT 6003 Conseil financier 

PHM 30 1 3 Gestion de fichien 

PHM3014 Gestion de rapports ■ 

PHM3014 Stan'.tifi ■ 

PHM 3055 Editor assembler ■ 

PHM 3076 Extended oasic ■ 

PHM 32 1 8/FR Budge! familial ■ 

PHT 6006 Aide a la programmation J • 

PHD 5005 Programming aids II ■ 

PHD5012 Programming aids III ■ 

PHM 3035 Terminal Emulator II • 

PHD 5063 UCSD Pascal Compiler ■ 

PHD 5064 UCSD Pascal Linker ■ 

PHD 5065 UCSD Pascal Editor 
PHM 3212 Ti-Cafc» 
AUTRES LOG! CIELS : 

PHM304/US Adventure module ■ 
PHT6046AB Adventureland 
PHT 6047/U5 Mission Impossible 
PHT6048/U5 VoodooCasUe 
PHT 6049/U5 The count 
PHT60SD/L/S Strange Odyssey 
PHT6051/US Mrstery Fun Mouse 
PHT6952AJS Pyramid of Doom 
PHT 6053/U5 Gnost Town 
Pt-fT 6051AS Savage Island I & It 
PHT A056/US Goklen Voyage 
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134.00 




IV 
29 
70 


134.00 
134.00 
134.00 




IB 
28 
22 
23 
74 


1 88.00 
131.00 
252.00 
1 88.00 
252.00 




n, 
21 
25 

17 

27 
30 
II 

36 
37 

55 

56 
53 
52 
54 
50 


1 34.00 
188.00 
134.00 

321.00 
134.00 
134.00 
134.00 
134,00 
134.00 

695.00 
800.00 
66.00 
3 75.00 
375.00 
188.00 
500,00 
500.00 
395.00 






66,00 




■■■' 


249.00 




73 
57 

75 


249.00 
500.00 
1.132.00 
870.00 






695.00 




101 

11 
32 
35 
43 
« 
41 
57 
39 
33 
40 
34 


395.00 

66.00 
66,00 
66.00 
66.00 
66.00 
66.00 
66.00 
66.00 
66.00 
66,00 
66.00 





-TARIFS - 

AU 1/1/84 



Cz. commodore 



Ja Regie 
aCdicul 



MICRO-ORDINATEUR 64 : 



Moniteur vert monochrome 

Momieur couleur taxan special commodore 

PERIPHERIOUES : 

VK 1 530 Lecteur/enreglstreur de cassettes 

VIC 1541 Limn 1 !)'' rr)onotli'.qiietJel70Ko. 

ROM 1 54 1 trans lor matron dun VIC 1 540 en 

VIC 1 54 I 
VrC 1525 Imprimante g rap htque 
Vlt: T.76 lrn[jiirri.Hitcit).itri(iell<'8fHril.r.r)rps. 

friction et traction 
VIC 1 520 Imprimante plotter 4 couleurs. 

10,20. 40 OU 80 colonnes 

ACCESSOIRES : 

Manche a balai (Joystick! 

AIDES A LA PROGRAMMATION : 

64/7420 1M FORTH 64 : langage et ecfrteur 



64/24 1218 TOOL 64 ; des commandes d'aide 

a la programmation 
64/24601D MAS1LKIM : Toutil de dcvetoppemeni 

PROGRAMMES FAMILIAUX, 
EDUCATIFS ET SOENTIFIQUES : 

VKS05I MATH MAI M 



3 7S0.00 
1 790,00 
160.00 



64/241 I 18 S1AT64 

64/2S00IB GRAF64 

64/2500 1C GORTEK 64 : autoformatioii au BASIC 

64/2S101C Auloformalionan BASIC (tome I) 

VIC 5031 VIC RELAY 

64/79001B [il.---.KV','' .t'C'i ,:.'.'-i.-frroriigue 

BUREAUTIOUE ET GESTION : 

64/73002M CALCRESULT 64 Advandec 

64/23000 IB CALCRESULT Easy 

64/23007D EASY SCRIPT. M t/.iilement de lexte 

PROGRAMMES RECREATIFS 
|sur cartouche) : 

64/2890 IB JUPITERLANDER MUMKaQe 
64/289028 KICKMAIM un cycliste sur un veto 

64/28903B SEAWOLF la guerre m.vmriir 
64/28904B SPEED/BtNGO MATH Zjew MuCM 
64/2B905B RADAR RATRACE : des Chats, ties rati 

el des Iromages 
64/78906B CLOWNS aitrape/ i- '■ I 

LOGICIELS DE JEU SUR CASSETTES 



Burning Rubber 
3 D (ii 






rir... 



Gudunnei 
Rox64 
Escape MCP 
Pakacuda 
Cenrropods 

!..Vr !.,.■.■. ,■■!-■ 
Slyx - tank .ttt 



Matrix 
SpinteM..-! 
Kia/y Kong 
Frogger 
Scramble 
Star Trek 



4 I 5.00 
415.00 
463.00 
490,00 

2 315,00 
I 130,00 
I 130.00 



215,00 
215.00 

215.00 

215.00 
715.00 

1 90,00 
190.00 
190.00 
190,00 
1 90,00 
190.00 
190,00 
1 90.00 
190.00 



1 90.00 
190,00 
190.00 
190.00 
190.00 
190.00 
190.00 
1 90.00 
190.00 
190.00 



BON PE COMMANDE 

Participation aux frals de port + 20 F. Ci^olnt mon reglement par : CCP l~l CB U Mandat (1 

□ Je commande les logiciels ou produits survants 
[ I Je desire seulement une dcKjumentation sans engagement de ma part 



La Regie a Calcu! - 65/67 Bd St-Germaln, 75005 Parii 
Tel. : 325.68J38 - Telex ; 220064F ETRAV/1303 RAC 



, LtVrafson Janvier 1984 



Myn.iturr 
e lit an, signature drt parents) 
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